Задание 3 Вариант 3 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение 3. Имеется массив R[1..2O], содержащий результаты по плаванию учеников 10А класса. Напишите программу, определяющую, есть ли среди всех результатов хотя бы два...](/reshebniki/informatika/11/WBbosova/images1/sam5/3/3.png "Изображение ответа 3. Имеется массив R[1..2O], содержащий результаты по плаванию учеников 10А класса. Напишите программу, определяющую, есть ли среди всех результатов хотя бы два...")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('ввод массива');
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.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
