для записи текста использовался 256-символьный алфавит каждая страница содержит 20 строк по 70 в строке

179

283

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

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

скрытник

Информатика

4,5(44 оценок)

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 uses graphabc; procedure outlightgreen(n: integer); begin var oldcolor: =fontcolor; setfontcolor(cllightgreen); write(n: 5); setfontcolor(oldcolor) end; begin var a: =matrixrandom(10,14,-180,320); var m: =readinteger('n='); writeln; setfontcolor(clwhite); font.style: =fsbold; font.name: ='courier'; brush.color: =clblack; window.clear(clblack); var k: =0; for var i: =0 to 9 do begin for var j: =0 to 13 do if a[i,j]> m then begin inc(k); outlightgreen(a[i,j]) end else write(a[i,j]: 5); writeln end; setfontcolor(clred); writeln('количество элементов равно ',k) end.