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

Question

Информатика

Тугзак

22 ноября, 21:28

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

+3

Ответы (1)

Знаете ответ на вопрос?

Пелагеня · Answer 1

Var

a: array [1 ... 10] of integer;

i:integer;

sum:integer;

begin

For i:=1 to 5 do

begin

a[i]:=random (201) - 100;

write (a[i]) ; write (' ') ;

end;

for i : = 1 to 5 do

sum : = sum + a[i];

write ('Сумма элементов массива = ', sum) ;

end.