Question

составьте программу на языке Паскаль, которая формирует массив C из 20 случайных целых чисел в промежутке [-64;87], и выводит сумму всех элементов этого массива.

Answer 1

program m1 ;

var i , x : integer ;

C: array[0..20] of integer;

begin

randomize;

x := 0 ;

for i := 1 to 20 do

C[i] := random(152) - 64 ;

for i := 1 to 20 do

writeln(C[i]) ;

for i := 1 to 20 do

x := x + C[i] ;

write(x);

end.