Регистрация
shurashishkin1
03.04.2022 18:32
Информатика
Есть ответ 👍

Неліктен презентацияға түрлі нысандар қоямыз?

232
278
Посмотреть ответы 1

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

rsr
rsr
4,5(66 оценок)
Const n=20; var a: array[1..n] of integer; s,p,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(51);   write(a[i],' ');   end; writeln; s: =0; p: =1; for i: =1 to n do   if a[i] mod 10 = 5 then begin s: =s+a[i]; p: =p*a[i]; end; writeln('s = ',s,' p = ',p); end. пример (для n=10): 18 43 5 30 46 39 21 26 19 25  s = 30 p = 125

Популярно: Информатика