Pascal abc

Дан массив А[1 ... 2,1 ... 15]. Известно, что среди его эл-тов 2 и только 2 равных. Напечатать их индексы.

Question

Информатика

Феля

11 октября, 10:55

Pascal abc

Дан массив А[1 ... 2,1 ... 15]. Известно, что среди его эл-тов 2 и только 2 равных. Напечатать их индексы.

+2

Ответы (1)

Знаете ответ на вопрос?

Конрад · Answer 1

Var a:array[1 ... 2, 1 ... 15] of integer;

i, m, j, n:integer;

begin

for m:=1 to 2 do

begin

for n:=1 to 15 do

begin

for i:=m to 2 do

begin

for j:=n+1 to 15 do

if a[m, n]=a[i, j] then writeln ('Индексы первого числа ', m, ' ', n, ' ', 'Индексы второго числа ', i, ' ', j) ;

end;

end;

end;

end.

Pascal abcДан массив А[1 ... 2,1 ... 15]. Известно, что среди его эл-тов 2 и только 2 равных. Напечатать их индексы.

Pascal abc

Дан массив А[1 ... 2,1 ... 15]. Известно, что среди его эл-тов 2 и только 2 равных. Напечатать их индексы.