Cpascal #6

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"

Задание:
Определить кол-во простых чисел в массиве X(n,m).

Выполнил: ст.гр. МЛ-212, Фомин Александр
г.Новосибирск, 2014г.
}
Program CyberPascal; uses crt;

const maxn=100; {Максимальное кол-во строк}
      maxm=100; {Максимальное кол-во столбцов}

var x:array[1..maxn,1..maxm] of byte;
    i,j,n,m,count:byte;

Function Prime(x:byte):boolean;
var i:byte;
Begin
Prime:=True;
for i:=2 to (X-1) do if (X mod i) = 0 then
                                          Begin
                                          Prime:=False;
                                          Break;
                                          end;
end;

Begin clrscr;
Randomize;
Count:=0; {Обнуляем...}

Repeat
Write('--------------------------------------------------------------------------------');
Write(' Введите кол-во строк:    '); Readln(N);
Write(' Введите кол-во столбцов: '); Readln(M);
Write('--------------------------------------------------------------------------------');
Until ((N in [2..MaxN]) and (M in [2..MaxM]));

for i:=1 to n do
    Begin
    for j:=1 to m do
        Begin
        X[i,j]:=Random(50)+1;
        Write(X[i,j]:4);

        if Prime(X[i,j]) then Inc(Count);
        end;
    Writeln;
    end;

Write('--------------------------------------------------------------------------------');
Writeln(' Кол-во простых: ',Count);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.