Консультация № 69779
06.01.2007, 19:07
0.00 руб.
0 1 1
Помогите...если можно оформите как контрольную работу....
Написать программу, которая в двухмерном массиве A(N, M) целых чи¬сел, таком, что для всех I от 1 до N, J от 1 до М-1 выполняется A(I, J) < A(I, J+1) и для всех I от 1 до N-1 выполняется A(I, M) < A(I+1, М), находит все элементы A(I, J), равные J+I, или устанавливает, что таких элементов нет.

Обсуждение

Неизвестный
07.01.2007, 00:17
общий
это ответ
Здравствуйте, SoN!
counter:=0;
fillchar(results,sizeof(results),0)
for i:=1 to N do
for j:=1 to M do
if massiv[i,j]=i+j then begin
inc(counter);
results[counter]:=i+j;
end;
kein:=false;
if results[1]=0 then kein:=true;

Если после работы программы переменная kein равно true, то ответов нету.
Форма ответа