Question

Cho 10 phần tử kiểu thực

a) tổng của phần tử dưới 5

b) xuất 4 phần tử cuối

Giúp mk vs, mai mk ktra r

Answer 1

uses crt;

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

i:integer;

t:real;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

t:=0;

for i:=1 to 10 do

if a[i]<5 then t:=t+a[i];

writeln('Tong cac phan tu duoi 5 la: ',t);

writeln('4 phan tu cuoi la: ');

for i:=7 to 10 do

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

readln;

end.