Question

Sử dụng biến mảng để ghi ra màn hình tổng biến mảng và các phần tử nhỏ hơn tổng biến mảng Aigiups em với mai thi rồi

Answer 1

program phan_tu;

uses crt;

var i, n: integer;

s: real;

a: array[1..100] of real;

begin

write('Nhap do dai cua day so: '); readln(n);

for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end;

s:=0

for i:=1 to n do s:=s + a[i];

for i:=1 to n do if a[i] < s then writeln('a[',i,']=', a[i]);

readln;

end.