a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tích các phần tử có giá trị lớn hơn 9 b) viết chương trình nhập vào mảng số nguyên gồm 7 phần tử sau đó in ra màn hình các phần tử có giá trị lớn hơn 9

nhokute2111

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 30 xem

1 trả lời

Thích Trả lời

phanngocthaouyen1

Uses crt;

Var i,tich: integer ;

a:array[1..100]of integer;

Begin

Clrscr;

Write('nhap n: '); readln(n);

For i:=1 to n do

Begin

Write('a[',i,']=');readln(a[i]);

End;

For i:=1 to n do if a[i]>9 then tich:= tich *i;

Writeln('Tich cua cac so lon hon 9 la:',tich);

Readln;

End.

Uses crt;

Var i: integer ;

a:array[1..100]of integer;

Begin

Clrscr;

For i:=1 to 7 do

Begin

Write('a[',i,']=');readln(a[i]);

End;

Writeln('cac so lon hon 9 la: ');

For i:=1 to n do if a[i]>9 then write(a[i]:3);

Readln;

End.

Hết!

CÁC BN NHỚ VOIT 5* NHA, THANKS!

Vote (0) Phản hồi (0) 2 năm trước

ngohonghau

Var A : array [1..100] of integer ;

n,i :byte ;

T : int64 ;

Begin

Write('n = ');Readln(n); T := 1 ;

For i :=1 to n do

Begin

Write('A[',i,']= ');

Readln(A[i]);

If A[i] > 9 then T := T*A[i] ;

End;

Writeln('T = '.T);

Readln

End.

Var A : array [1..7] of integer ;

n,i :byte ;

Begin

Write('n = ');Readln(n);

Write('cac so lon hon chinh la ');

For i :=1 to n do

Begin

Write('A[',i,']= ');

Readln(A[i]);

If A[i] > 9 then Write(A[i],' ');

End;

Readln

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Vẽ hình câu c bài 5 và chứng minh tam giác MHC = tam giác EHC và ba điểm B,G,E thẳng hàng

Viết một đoạn văn ngắn (từ 5 đến 7 câu) nêu suy nghĩ của em khi được đi học lại sau kỳ nghỉ tết 2021 sẽ đối phó với dịch covid-19 trong đó có sử dụng một phép liệt kê và một dấu chấm lửng

vì sao pháp xâm lược nước ta ? ,Vì sao pháp chọn Đà Nẵng để mở đầu xâm lược ? vì sao phám đánh Ba Đình 1859?

Trình bày giúp mình cách để làm bài tập dưới

Nếu tả quang cảnh một đầm sen đang mùa hoa nở, em sẽ lập dàn ý cho bài văn ấy như thế nào? Ngắn gọn với ạ!! Giúp mik vs

Làm phần: mở bài, giải thích, dàn ý về câu nói của Bác Hồ:"Học tập là 1 việc phải tiếp tục suốt đời.

A= 9/1.2 + 9/2.3 + 9/3.4 +...+ 9/98.99 + 9/99.100

mấy bác ơi : viết cho tôi chữ : Chúc cậu ngủ ngon < theo kiểu chữ calligraphy nhá > Chữ calligraphy kiểu như sau < tại hôm trước tui cug kêu viết chữ calligraphy mà có người ghi nguyên luôn ra á >

một tàu thuỷ đi từ A đến B hết 3 h.cùng lúc đó một ca nô đi từ B đến A với vận tốc là 45km/hvaf đến A sau 2 h đi .tính vậ tốc tàu thuỷ

Một cái bể nước hình hộp chữ nhật có kích thước trong lòng bể là chiều dài 2 m chiều rộng 1,5 m chiều cao bằng chiều rộng Tính thể tích của bể trong bể hiện đã có 45% thể tích nước lúc 8:15 người ta cho một vòi nước chảy vào bể mỗi giờ chảy được 900 lít nước hỏi bể đầy lúcnaof

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến