Мой вариант:
Program natyr;
VAR
A:array [1..100,1..100] of integer;
i,j,n,k : integer;
f : boolean;
Begin
WriteLn('vvedite razmernost massiva');
readLn (n);
For i:=1 to n do
For j:=1 to n do
ReadLn (A[i,j]);
For i:=1 to n do
begin
For j:=1 to n do
Begin
F:=false
For k:=2 to A[i,j] do
If (A[i,j] mod k )=0
Then f:= true
If (f=false)
then A[i,j] {vot zdesi ostanovilas proverit kak rabotaet,a ni kak ne rabotaet,nyli vidaet}
вопрос:
1.Почему выдает нули
2.Что не так
3.все не так не ответ (это последняя задача в семестре надо сдать до пузичных каолик)