Question

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ố

Answer 1

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.