задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран

найти сумму всех элементов массива

Question

Информатика

Линуха

18 февраля, 13:03

задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран

найти сумму всех элементов массива

+4

Ответы (1)

Знаете ответ?

Вероника · Answer 1

unit math;

program chisla;

var

a: array[1 ... 20] of intteger;

i, s:integer;

Begin

s:=0;

for i:=1 to 20 do begin

a[i]:=randomRange (-5,1) ;

write (' ', a[i]) ;

s:=s+a[i];

end;

readln;

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

End.

задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экраннайти сумму всех элементов массива

задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран

найти сумму всех элементов массива