profile
Опубликовано 5 лет назад по предмету Информатика от cruelarcher

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

  1. Ответ
    Ответ дан DagotPavel
    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.

Самые новые вопросы