Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Mẫn Kim Anh

viết chương trình sử dụng biến mảng để nhập một dãy số gồm N số nguyên từ bàn phím và thực hiện: +tính tổng các số trong dãy đó. +in ra màn hình các số lớn hơn 50 trong dãy số đó. +tìm số nhỏ nhất trong dãy đó Cần gấp ạ

Kiều Vũ Linh
28 tháng 4 2023 lúc 9:31

var a:array[1..1000] of integer;

i,n,min:integer;

s:longint;

begin

write('n = ');readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

s:=s+a[i];

end;

writeln('Tong la ',s);

min:=a[1];

for i:=2 to n do

if a[i] < min then min:=a[i];

write('Cac so chan la ');

for i:=1 to n do

if a[i] mod 2 = 0 then write(a[i]:8);

writeln;

write('so nho nhat la ',min);

readln

end.


Các câu hỏi tương tự
Uchiha Obito
Xem chi tiết
Uchiha Obito
Xem chi tiết
Huyền Trần
Xem chi tiết
Thư ĐT
Xem chi tiết
jennierubyjane
Xem chi tiết
Bảo Trâm
Xem chi tiết
Huỳnh Trúc Ly
Xem chi tiết
Minh Đạt
Xem chi tiết
Ly Khánh
Xem chi tiết