Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Используя процедуру, составить программу, которая определяет, имеется ли на второстепенной диагонали двумерного массива хотя бы один чётный элемент, равный заданному числу.

Просмотров: 505
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

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; opredel(A,n); {вызов процедуры } readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.