Решаем задачи Абрамян на Паскале. Array44

Array44. Дан целочисленный массив размера $$N$$, содержащий ровно два одинаковых элемента. Найти номера одинаковых элементов и вывести эти номера в порядке возрастания.

Решение:

program Array44;
var
  a:array[1..10] of integer;
  N,i,i2:Integer;

begin
  Write('N: ');
  Readln(N);

  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;


  for i:=1 to N-1 do
    for i2:=i+1 to N do
      if a[i]=a[i2] then Writeln (i,' ',i2);
end.

program Array44;

var

a:array[1..10] of integer;

N,i,i2:Integer;

begin

Write('N: ');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

for i:=1 to N-1 do

for i2:=i+1 to N do

if a[i]=a[i2] then Writeln (i,' ',i2);

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array44

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ