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

1
Комментарий удален
К сожалению, больше никаких условий у задачи нет....
Комментарий удален
Вся проблема в том, что я совершенно не понимаю турбо паскаль, в котором это надо решить, и не имею представления как это сделать... :(
Комментарий удален

Ответы и объяснения

Лучший Ответ!
2014-01-04T20:42:22+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
В турбо паскале, к сожалению, нет динамических массивов, по крайней мере, я в описаниях ничего не нашел, поэтому придется заранее задать 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.