Question

ДАЮ 50 БАЛЛОВ! СРОЧНО. ЯЗЫК ПАСКАЛЬ.

Answer 1

var

i,sum:integer;

a:array[1..5] of integer;

begin

sum:=0;

writeln('Введите цифры');

for i:=1 to 5 do begin

read(a[i]);

sum:=sum+a[i];

end;

write(sum,' = ');

for i:=1 to 5 do

write(a[i],' + ');

end.

Answer 2

program sum_mas;

const n=5;

var

a:array[1..n] of integer;

i,sum:integer;

begin

for i:=1 to n do

read(a[i]);

sum:=0;

for i:=1 to n do

sum:=sum+a[i];

write('sum=',sum);

readln;

end.