Viết chương trình pascal nhập vào 30 phần tử số thực và in ra 1 cột số lớn hơn hoặc bằng 5 và tính tổng dãy số đó

Câu 40: Viết chương trình pascal nhập vào 30 phần tử số thực và in ra 1 cột số lớn hơn hoặc bằng 5 và tính tổng dãy số đó

Trả lời

uses crt;

var a:array[1..30]of real;

i:integer;

t:real;

begin

clrscr;

for i:=1 to 30 do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Cac so lon hon 5 trong day la: ');

t:=0;

for i:=1 to 30 do

if a[i]>5 then

begin

write(a[i]:4:2,' ');

t:=t+a[i];

end;

writeln;

writeln('Tong cac so lon hon 5 trong day la: ',t:4:2);

readln;

end.