Заполнить массив а(10) случайными числами из интервала - вопрос №3700733102513 от linovanex 26.02.2021 12:31

Question

Информатика: Заполнить массив а(10) случайными числами из интервала (-25, 13). найти сумму всех элементов массива (3)

linovanex · Answer

Var i,n:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(38)-25;
write(a[i]:5);
end;
writeln;
for i:=1 to 10 do
n:=n+a[i];
writeln('Сумма всех элементов=',n);
end.