Pascal abc Дан массив А[1..2,1..15]. Известно, что среди его эл-тов 2 и только 2 равных. Напечатать их индексы.
Pascal abc
Дан массив А[1..2,1..15]. Известно, что среди его эл-тов 2 и только 2 равных. Напечатать их индексы.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы