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

Question

Информатика

Абдукерим

11 ноября, 20:19

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

+4

Ответы (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.