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

Втурбо паскале, к сожалению, нет динамических массивов, по крайней мере, я в описаниях ничего не нашел, поэтому придется заранее задать n и m. пусть будет n = 10, m = 20. для чисел меньше миллиона функция prost работает за вполне приемлемое время. program sredprost; var a: array [1..10, 1..20] of integer; var i, k, p: integer, s: real; function prost(n: integer): integer var i: integer begin prost: =1; {esli n delitsia na kakoe-to chislo ot 2 do kornya iz n, to n sostavnoe} for i: =2 to sqrt(n) do if (n mod i = 0) then prost: =0; end; begin uses crt; clrscr; {vvodim nachalniy massiv} for i: =1 to 10 do begin for k: =1 to 20 do read (a[i,k]); end; s: =0; p: =0; {ischem prostye chisla, summiruem ih v s i schitaem kol-vo v p} for i: =1 to 10 do begin for k: =1 to 20 do begin {prost - eto funkcia poiska, prostoe chislo ili net} if (prost(a[i,k]) = 1) then begin s: =s+a[i,k]; p: =p+1; end; end; end; {srednee - eto summa chisel, delennaya na ih kol-vo} s: =s/p; writeln ('srednee vseh prostyh chisel ', s); end.

Отличие примерно в 90%. для этой не надо составлять программу.