Заполнить массив А(10) случайными числами из интервала (-25, 13). Найти сумму всех элементов массива (3)
Заполнить массив А(10) случайными числами из интервала (-25, 13). Найти сумму всех элементов массива (3)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы