ПОМОГИТЕ, ПОЖАЛУЙСТА ⇒ напишите текст программы по суммированию всех чисел в массиве из...

Question

ПОМОГИТЕ, ПОЖАЛУЙСТА ⇒ напишите текст программы по суммированию всех чисел в массиве из 20 чисел, заполненных случайных числами. информатика 9 класс

Comments

pascal?

---

да

Answer 1

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.

Comments

Блин, слиплось

---

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.