Двухмерные массивы

[lenni]

Сформировать двухмерный массив 8 на 8 из элементов целого типа. Написать процедуру, которая находит все элементы массива, значения которых больше суммы их индексов(номер строки + номер столбца), выводит такие элементы и их индексы на экран. Если таких элементов нет, то выводится сообщение "Таких элементов нет"

[Alex_FF]

на чём писать?

[Deamonig]

program ss;
var
a:array[1..8,1..8] of integer;
n,i,j:integer;
procedure find(a,i,j:integer var n:integer;);
begin
if a>(i+j) then
begin
writeln('a[',i,',',j,']='a);
n:=n+1;
end;
end;
begin
for i:=1 to 8 do
for j:=1 to 8 do
a[i,j]:=random(10)+1; //случайное заполнение массива от 1 до 10 

for i:=1 to 8 do
for j:=1 to 8 do
find(a[i,j],i,j,n);

if n=0 then writeln('takix elementov net');
readln;
end.

[lenni]

Мне в Турбо Паскале это нужно написать

[lenni]

Но всё равно большое спасибо! Рада, что откликнулись!

[aggressor74]

Помогите пожайлусто решить задачу (написать прогу):дан двухмерный массив, заполненный нулями и единицами. Найти прямоугольник наибольшей площади, заполненный единицами.