Вывести номера одинаковых элементов массива в программе паскаль

1

Ответы и объяснения

2013-11-24T22:58:46+00:00
Program znanija_com;
const
   numArray = 3;
type
   tArray = array[1..numArray] of integer;
var
   arr : tArray;
   i, j, temp : integer;
begin
for i:=1 to numArray do begin

    writeln('Введите элемент массива ', i);
    readln(arr[i]);
  end;
for i:=1 to numArray do begin
  for j:=i+1 to numArray do begin
    if arr[i] = arr[j] then writeln('Значение элемента ', i, ' совпадает со значением эелемента ', j);
  end;
end;
readln();
end.