ПОМОГИТЕ, ПОЖАЛУЙСТА ⇒ напишите текст программы по суммированию всех чисел в массиве из 20 чисел, заполненных случайных числами. информатика 9 класс
Answers & Comments
shalunbdk
Var i, sum: integer;mas:array[1..20] of integer;beginrandomize;For i:=1 to 20 do beginmas[i] := random(100);write(mas[i], ',');sum := sum + mas[i];end;writeln('Sum = ', sum);end.
shalunbdk
var i, sum: integer; mas:array[1..20] of integer; begin randomize; For i:=1 to 20 do begin mas[i] := random(100); write(mas[i], ','); sum := sum + mas[i]; end; writeln('Sum = ', sum); end.
Answers & Comments
i, sum: integer;
mas:array[1..20] of integer;
begin
randomize;
For i:=1 to 20 do
begin
mas[i] := random(100);
write(mas[i], ',');
sum := sum + mas[i];
end;
writeln('Sum = ', sum);
end.