Question

Дан двумерный массив из целых чисел. Найти номера строк, все элементы которых положительные и четные

Answer 1

program raf105;

const

 n = 3;

var

 a:array[1..n,1..n] of integer;

 i,j:integer;

 x:boolean;

begin

for i:=1 to n do

begin

 writeln('Введите три элемента строки №',i,' по очереди');

 for j:=1 to n do

   readln(a[j,i]);

end;

writeln('Номера строк в которых все элементы положительные и чётные:');

for i:=1 to n do

begin

 if x

   then writeln(i-1);

 x:= true;

 for j:=1 to n do

   if x and (not(a[j,i]>0)) or (not((a[j,i] mod 2)=0))

     then x:=false

end;

end.

Язык PascalABC