Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы

@Alexd27 · Регистрация: 13.05.2010

Студворк — интернет-сервис помощи студентам

привет всем))
плиз помогите решить задачу

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

@STGE · 13.05.2010, 16:04

Вполне вероятно, что так:

Pascal

for i:=1 to n do
for j:=1 to m do
begin
c:=a[i,j];
for l:=i to n do
for k:=j to m do
if (k<>j) and (c=a[i,j]) then 
begin
s:=l;
d:=k;
end;

@Alexd27 · 17.05.2010, 16:03 **[ТС]**

а полную сможеш а то чота я не могу сделал чуть чтуь по другому а вывести в таблицу не могу

Pascal

program m304;
uses crt;
var a:array[1..3,1..15] of integer;
 
i,j,i1,j1:integer;
begin
clrscr;
writeln('vvedite elementi massiva');
for i:=1 to 3 do
for j:=1 to 15 do
readln(a[i,j]);
 
 
for i1:=1 to 3 do for j1:=1 to 15 do begin
 
for i:=1 to 3 do for j:=1 to 15 do
if a[i1,j1]=a[i,j] then begin
writeln('eto 2 chicjla:',a[i,j]:4,a[i1,j1]:4); readln; exit;
end; end;
 
readln;
end.

@Alexd27 0 / 0 / 1 Регистрация: 13.05.2010 Сообщений: 16
		1
	Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы 13.05.2010, 15:34. Показов 3420. Ответов 2 Метки нет (Все метки) привет всем)) плиз помогите решить задачу Дан массив А[1..3, 1..15]. Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы. 0

Опции темы

Известно, что среди его элементов два и только два равны между собой. Напечатать их индексы

Решение