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

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

Question

Информатика

Алексейка

26 августа, 10:29

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

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

+2

Ответы (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] и вывести его на экран

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