Найти и вывести максимальное простое число из заданного массива - Pascal ABC

Формулировка задачи:

Помогите решить задачу. Дан произвольный массив целых чисел размером 5 на 7. Найти и вывести максимальное простое число из этого массива. Для каждой строки отдельно найти количество элементов первая цифра которых четна. Добавлено через 7 минут Пробовал, не получается, вот скажет кто скажет где не правильно. Найти и вывести максимальное простое число из этого массива.
VAR
A:ARRAY[1..2,1..3] OF INTEGER;
I,J,MAX,K,E:INTEGER;
BEGIN
FOR I:=1 TO 2 DO
FOR J:=1 TO 3 DO
READ(A[I,J]);
E:=0;
FOR K:=1 TO A[I,J] DO
IF (A[I,J] MOD K=0) THEN
E:=E+1;
IF (E=2) THEN MAX:=A[I,J];
FOR I:=1 TO 2 DO BEGIN
FOR J:=1 TO 3 DO
FOR K:=1 TO A[I,J] DO
IF (A[I,J] MOD K=0) THEN E:=E+1;
IF (E=2) AND (A[I,J]>MAX) THEN MAX:=A[I,J];
END;
WRITE(MAX);
END.
Для каждой строки отдельно найти количество элементов первая цифра которых четна.
VAR
A:ARRAY [1..2,1..3] of Integer;
M,K,C,W:Integer;
Begin
For M:=1 to 2 do
For K:=1 to 3 do
Read(A[M,K]);
C:=0;
For M:=1 to 2 do
For K:=1 to 3 do
While A[M,K]<>0 do Begin
W:=A[M,K] mod 10;
A[M,K]:=A[M,K] div 10;
end;
If (W mod 2=0) then C:=C+1;
Writeln(C);
end.

Код к задаче: «Найти и вывести максимальное простое число из заданного массива - Pascal ABC»

textual
      if (E = 2) and (MAX = 0) then
        MAX := A[I, J];

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ