Дана целочисленная матрица A(M,N) и натуральное число K<N. Выяснить все ли элементы K-го столбца матрицы А четные.
Надеюсь на вашу помощь, спасибо
var
i,j,k,n,m:integer;
lret:boolean;
m,n:real;
A:array[1..10,1..20] of real;
begin
writeln('k=');
read(k);
if k<20 then
begin
lret:=false;
writeln('k<20');
exit;
end;
for i:=1 to 10 do
begin
for j:=1 to 20 do
begin
if (A[i,j] mod 2=0) then
lred:=true;
end;
end;
end;
if lret then
writeln('vse elementi 4etnie');
end.
Сообщение отредактировано: LifeDrain -