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

1. Имеется массив $$R[1..20]$$, содержащий результаты по плаванию учеников 10А класса. Напишите программу, определяющую, есть ли среди всех результатов хотя бы два одинаковых. Запишите текст программы.

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

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.

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