Question

дан массив А ращмерностью 15. Заполните его случайными числами от 0 до 30. Выведите на экран элементы массива и их сумму
Срочноооо

Answer 1

var

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

b,c:integer;

Begin

for b:=1 to 15 do begin

a[b]:=random(31);

write(a[b],' ');

c:=c+a[b];

end;

writeln;

writeln(c);

end.