Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. Подсчитать количество элементов больших, чем заданное число, выделить их светло-зеленым цветом.

program zz1;

uses graphabc; / / подключаем библиотеку для работы с графикой

const n = 10;

b = 14; / / задаем количество элементов в массиве

var i, j, k, a:integer; / / задаем переменные целого типа

m:array [1 ... n, 1 ... b] of integer;

begin

write (' введите заданное число '); / / вводим с клавиатуры число

read (a);

for i:=1 to n do

for j:=1 to b do / / получаем числа и записываем их в массив

m[i, j]:=random (501) - 180;

for i:=1 to n do / / выводим полученный массив на экран

begin

for j:=1 to b do

write (m[i, j]:4);

writeln;

end;

for i:=1 to n do

for j:=1 to b do

if m[i, j] > a then k:=k + 1; / / проверяем, если элемент больше заданного, то считаем его

writeln (' количество элементов массива больших заданного = ', k); / /выводим ответ

for i:=1 to n do / / выводим полученный массив на экран еще раз, выделив светло-зеленым цветом те элементы, которые больше заданного числа

begin

for j:=1 to b do

if m[i, j] > a then begin setfontcolor (clgreen); write (m[i, j]:4); end else begin setfontcolor (clblack); write (m[i, j]:4); end;

writeln;

end;

end.