Найти сумму элементов одномерного массива. Элементы массива – случайные числа на отрезке [-5,7].
Найти сумму элементов одномерного массива. Элементы массива – случайные числа на отрезке [-5,7].
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..100] of integer;i,n:integer;k,ar:real;beginreadln(n);randomize;for i:=1 to n do begina[i]:=-5+random(13);write(a[i]:3);end;writeln;k:=0; ar:=0;for i:=1 to n dok:=k+a[i];writeln(k);end.
Гостьprogram ffff;
var a:array[1..10]
i,s :integer;
begin
for i:= 1 to 10 do
a[i]:=random(7+5+1)-5;
writeln('исх. массив чисел : ');
for i:=1 to 10 do write(a[i]:5);
s:=0;
for i:=1 to 10 do s:=s+a[i];
writeln('сумма элементов массива ',s);
end.
с тут несколько ошибок т.к я писал с телефона и не проверял ее. в целом прога верная
Не нашли ответ?
Похожие вопросы