[lmikle]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

function IsSimple(N : Integer) : Boolean; begin   // Определяет, является ли число N простым.   // Напиши сама end;   var   A : Array Of Arra Of Integer; // Изначальный массив   B : Array Of Integer; // Результирующий массив   I, J : Integer;   F : boolean; begin   SetLength(B,0);   For I := Low(A) To High(A) Do     Begin       F := True;       For J := Low(A[i]) To High(A[i]) Do         Begin            F := F And IsSimple(A[I,J]);            If Not F Then Break;         End;       If F Then         Begin           SetLength(B,Length(B)+1);           B[High(B)] := I;         End;         End;     End; end;

Заполнение исходного массива А и вывод его и результирующего массива B, как и функцию определения простоты числа, напишешь сама.