Найти сумму элементов одномерного массива. Элементы массива – случайные числа на отрезке [-5,7].
Answers & Comments
199823ii
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.
4 votes Thanks 6
f1na1ik1
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.
с тут несколько ошибок т.к я писал с телефона и не проверял ее. в целом прога верная
Answers & Comments
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.
с тут несколько ошибок т.к я писал с телефона и не проверял ее. в целом прога верная