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

agellertova agellertova    3   04.10.2019 06:10    0

Ответы
dariapark1 dariapark1  09.10.2020 18:57

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика