Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ha Cam

Mọi người giúp mình đi Viết chương trình Nhập vào dãy số nguyên gồm 20 phần tử In ra màn hình dãy số vừa nhập In tổng dãy số đó In các số lớn hơn 50 trong dãy số In các số bé hơn 30 trong dãy số

Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 11:57

uses crt;

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

i,n,t: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 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln('Tong cua day la: ',t);

for i:=1 to n do 

 if a[i]>50 then write(a[i]:4);

writeln;

for i:=1 to n do 

 if a[i]<30 then write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
vy tường
Xem chi tiết
AETC丶NhấtㅤGG
Xem chi tiết
Phan Thu
Xem chi tiết
Nguyễn Thùy Linh
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Đặng Đức Nam
Xem chi tiết
Hắc Lang
Xem chi tiết
Phan Hoàng Xuân Huy
Xem chi tiết
Tali
Xem chi tiết