Суреттегі процессордың тактілік жиілігін анықтаңыз айтындар

235

413

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

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

yoc

Информатика

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

Type n=array [1..5, 1..5] of integer; var a: n; b,c,count: integer; begin for b: =1 to 5 do for c: =1 to 5 do begin a[b,c]: =random(10); writeln('число ',a[b,c]); end; for b: =1 to 5 do for c: =1 to 5 do begin if a[b,c]> 1 then inc(count); end; writeln('кол-во: ',count); end.