Question

Помогите срочно. составьте программу которая заполняет массив А [1..10] случайными целыми числами в диапазоне от 1 до 50, выводит на экран сформированной массив и вычисляет сумму элементов массива.

Answer 1

Ответ:

var a:array[1..10] of integer;

i,s:integer;

begin

for i:=1 to 10 do begin

a[i]:=random (49)+1;

write (a[i]:3);

s:=s+a[i];

end;

writeln;

write(s);

end.