Используя процедуру, составить программу, которая определяет, имеется ли на второстепенной диагонали двумерного массива хотя бы один чётный
Условие задачи:Используя процедуру, составить программу, которая определяет, имеется ли на второстепенной диагонали двумерного массива хотя бы один чётный элемент, равный заданному числу.
program PascalGuru; uses crt; type matr=array[1..50,1..50] of integer;
var A:matr; i,j,n:integer;
{------------------------------------------------------------------------------} procedure opredel(A:matr;n:integer); var zc:integer; b:boolean; begin repeat writeln; write('Vvedite chetnoe chislo: '); readln(zc); if zc mod 2<>0 then writeln('ERROR: chislo dolzhno byti chetnym...'); until zc mod 2=0;
b:=false; for i:=1 to n do for j:=1 to n do if i+j-1=n then if A[i,j]=zc then b:=true;
if b then writeln('Otvet: imeetsya') else writeln('Otvet: ne imeetsya') end; {------------------------------------------------------------------------------}
begin write('Razmer matritsy= '); readln(n);
for i:=1 to n do for j:=1 to n do begin write ('A[',i,',',j,']= '); readln (A[i,j]); end;
clrscr; write('Matritsa:'); for i:=1 to n do begin writeln; for j:=1 to n do write (A[i,j]:8); end; {вывод элементов матрицы} writeln;writeln;