Задание 9 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:
9. Напишите программу, определяющую, встречаются ли в некотором одномерном целочисленном массиве одинаковые элементы.
Запишите текст программы.
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.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
