Составьте программу расчета суммы элементов в массиве из 10 случайных чисел

Question

Информатика

Твердош

28 марта, 04:22

Составьте программу расчета суммы элементов в массиве из 10 случайных чисел

+5

Ответы (1)

Знаете ответ?

Камсар · Answer 1

Program abc; var a: array [0 ... 9] of integer; i: integer; summ:integer;

begin

for i:=0 to 9 do begin a[i]:=random (100) ;

end; summ: = 0;

for i:=0 to 9 do begin summ:=summ+a[i];

end; writeln (summ) ;

end.