Задача

[yul111-95]

Помогите, пожалуйста, решить.
Заданиие: Найти порядковые индексы тех элементов двумерного массива которые равны 11

[Poma][a]

Помогите, пожалуйста, решить.

Без проблем!
Что не получается? В чем проблемы? Заметьте, Вы сказали "помогите решить", а не "решите за меня" => Вы что-то делаете, выставляете на форум, а мы с радостью поправим Ваши косяки..

Кстати, язык какой?

[yul111-95]

Хорошо! В Pascal ABC. Помогите, пожалуйста, исправить.

program proga;
var
i, j, m, r: integer;
mas: array[1..10, 1..10] of integer;
begin
randomize;
read(m);
for i:=1 to m do
for j:=1 to m do
begin
r := random(50);
mas[i, j] := r;
end;

for i:=1 to m do begin
for j:=1 to m do begin
write(mas[i, j], ' ');
end;
writeln()
end;

for i:=1 to 10 do
for j:=1 to m do
if mas[i, j] = 11 then begin
writeln(i, ' ', j);
end;
end.

[kventin_zhuk]

yul111-95, Код работает. В чём проблема?

[DmitriB]

Все должно работать У вас же элементы заполняются случайным образом, может просто число 11 не попадается
И в последнем цикле правильно было бы написать m вместо 10.

[Poma][a]

Код рабочий..
Только пара замечаний :

r := random(50);

Можно сразу присваивать, а не делать это промежуточное действие..

if mas[i, j] = 11 then begin
writeln(i, ' ', j);
end;

begin end здесь ни к чему..

for i:=1 to 10 do

Наверное вместо 10 стоит писать m

[yul111-95]

Спасибо большое!