Заполнить одномерный массив числами целыми (от 40, до 400) с функции случайных чисел. найти сумму элементов, которые делятся на 5 pascal

201

476

Посмотреть ответы 2

Ответы на вопрос:

kisilevars2003

Информатика

4,8(96 оценок)

Const n=10; var a: array[1..n] of integer; i,s: integer; begin randomize; for i: =1 to n do begin a[i]: =random(361)+40; write(a[i]: 5); end; writeln; s: =0; for i: =1 to n do if a[i] mod 5 = 0 then s: =s+a[i]; writeln('s = ',s); end. пример: 346 213 87 382 165 184 278 261 124 233 s = 165