Дана матрица размерностью N*M. Найти среднее арифметическое простых чисел матрицы.

program zz1;

const n = 8;

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

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

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

function Prost (a:longint) : boolean;

var k:longint;

f:boolean;

begin

if a < 2 then f:=false

else

begin

f:=true;

k:=2;

while (k * k < = a) and f do / / пока счетчик меньше корня из числа и нет делителей

if a mod k = 0 then f:=false / / если делитель, то не простое

else k:=k + 1;

end;

Prost:=f;

end;

begin

for i:=1 to n do

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

m[i, j]:=random (101);

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 Prost (m[i, j]) then begin s:=s + m[i, j]; k:=k + 1; end;

write ('среднее арифметическое простых элементов массива = ', s/k); / /выводим ответ

end.