Question

Задать массив из 9 эллементов
случайным образом
от 50 до 60
вывести в столбик
найти сумму эллементо массива

срочно(

Answer 1

//PascalABC.NET v3.3 1633

var arr: array [1..9] of byte;

begin

 for var i:=1 to 9 do

   arr[i]:=random(50,60);

 for var i:=1 to 9 do

   writeln(arr[i]);

 var sum:=0;

 for var i:=1 to 9 do

   sum += arr[i];

 writeln('Сумма эл. массива: '+sum);

end.