Задание 3 Вариант 3 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

В задании не оговорено, тип каких величин находится в массиве. В программе предполагается, что массив целых положительных чисел.
program s5_v3_3;
const
n = 20;
var
r: array[1..n] of integer;
i, j: integer;
begin
writeln(‘ввод массива’);
randomize;
for i := 1 to n do
begin
r[i] := random(50)+10;
write(r[i], ‘ ‘)
end;
writeln;
for i := 1 to n — 1 do
for j := i + 1 to n do
if r[i] = r[j] then
begin
writeln(‘есть одинаковые результаты > ‘,r[i]);
exit;//выход из программы
end;
writeln(‘Нет одинаковых результатов’)
end.

Чтобы определить, есть ли в массиве хотя бы два одинаковых результата, нужно сравнить каждый элемент со всеми последующими. Если найдётся совпадение, сразу выводим сообщение о наличии одинаковых значений и завершаем программу. Если после всех сравнений совпадений нет, выводим, что одинаковых результатов нет.

program s5_v3_3;
const
  n = 20;
var
  r: array[1..n] of integer;
  i, j: integer;
begin
  writeln(‘ввод массива’);
  randomize;
  for i := 1 to n do
  begin
    r[i] := random(50) + 10;
    write(r[i], ‘ ‘);
  end;
  writeln;
  for i := 1 to n — 1 do
    for j := i + 1 to n do
      if r[i] = r[j] then
      begin
        writeln(‘есть одинаковые результаты > ‘, r[i]);
        exit;
      end;
  writeln(‘Нет одинаковых результатов’);
end.

Ответ: программа перебирает все пары элементов массива и выводит сообщение о наличии одинаковых результатов, если хотя бы одна пара совпадает; иначе сообщает, что одинаковых результатов нет.