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

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

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

В задании не оговорено, тип каких величин находится в массиве. В программе предполагается, что массив целых положительных чисел.

program s5_v3_3;

const

n = 20;

var

r: array[1..n] of integer;

i, j: integer;

begin

writeln(taskввод массиваtask);

randomize;

for i := 1 to n do

begin

r[i] := random(50)+10;

write(r[i], task task)

end;

writeln;

for i := 1 to n - 1 do

for j := i + 1 to n do

if r[i] = r[j] then

begin

writeln(taskесть одинаковые результаты > task,r[i]);

exit;//выход из программы

end;

writeln(taskНет одинаковых результатовtask)

end.