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

alexnn08 alexnn08    1   19.05.2019 15:20    2

Ответы
HesteVlad HesteVlad  12.06.2020 19:24

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.

 

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика