Дана матрица В (8 х 8). Необходимо сформировать новую матрицу С (8 8), в которой элементы матрицы В (8 х 8) по величине больше среднего арифметического будут заменены нулями. На дисплей вывести: исходную матрицу В (8 8), среднее арифметическое и матрицу С (8 х 8).

program zz1;

var i, j, s: integer; sr:real;

b, c: array[1 ... 8,1 ... 8] of integer;

begin

for i:=1 to 8 do begin

for j:=1 to 8 do begin

b[i, j]:=random (10) + 1; / /заполнение матрицы случайными числами и вывод на экран

write (b[i, j]:3);

s:=s+b[i, j];

end;

writeln;

end;

sr:=s/64; writeln (' среднее арифметическое = ', sr);

for i:=1 to 8 do begin / / проверка элементов выше побочной диагонали

for j:=1 to 8 do begin

if b[i, j]>sr then b[i, j]:=0;

end;

end;

c:=b;

for i:=1 to 8 do begin / /вывод ответа

for j:=1 to 8 do begin

write (c[i, j]:3);

end;

writeln;

end;

end.