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

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

Программа заполняет одномерный массив из $$n=20$$ случайных целых чисел и затем сравнивает каждый элемент с каждым следующим. Если находится хотя бы одна пара одинаковых элементов, выводится сообщение о наличии одинаковых элементов и выполнение программы завершается.

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

Алгоритм работы программы:

• создать массив из 20 элементов;
• заполнить его случайными числами от 0 до 49;
• сравнить все пары элементов массива;
• если найдены одинаковые элементы, вывести соответствующее сообщение;
• если совпадений нет, вывести сообщение об их отсутствии.

Ответ

Программа приведена выше.