Задайте массив из 5 случайных элементов. выведите на экран сумму его элементов и сами элементы. паскаль

катяeryixs катяeryixs    1   23.09.2019 20:00    0

Ответы
КсенияБыкК КсенияБыкК  08.10.2020 13:12
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(5,-99,99); a.Println;
  Writeln('Сумма элементов равна ',a.Sum)
end.

Пример
21 -79 -52 57 -64
Сумма элементов равна -117
ПОКАЗАТЬ ОТВЕТЫ
daryabatova daryabatova  08.10.2020 13:12
Var a:array [1..5] of integer;
i,s:integer;
begin
for i:= 1 to 5 do a[i]:= Random(51);
writeln(a);
for i:=1 to 5 do s:=s+a[i];
writeln(s)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика