Question

На листочке я вас умоляю

Answer 1

Ответ:

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

i:integer;

s:real;

begin

s:=0;

write('Массив: ');

for i:=1 to 14 do

begin

a[i]:=random()+random(3);

write(a[i]:0:3,' ');

s:=s+a[i]

end;

writeln;

write('Сумма чисел равна ',s:0:3)

end.