Найти сумму элементов целочисленного массива. программу - вопрос №1536513 от CatyX8 17.09.2020 12:23

Question

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

CatyX8 · Answer

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.

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