Question

найти сумму элементов целочисленного массива. помогите пожалуйста программу составить на паскале

Answer 1

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

var s:real;

var i:integer;

 

begin

for i:=1 to 10 do begin

k[i]:=round(10*random+3);

s:=s+k[i];

end;

write('Сумма массива = ', s);

writeln

end.

 

Должно работать, проверьте.