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

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

9. Напишите программу, определяющую, встречаются ли в некотором одномерном целочисленном массиве одинаковые элементы.

Запишите текст программы.

program s4_v3_9;

const

n = 20;

var

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

i, j: integer;

begin

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

randomize;

for i := 1 to n do

begin

c[i] := random(50);

write(c[i], task task)

end;

writeln;

for i := 1 to n - 1 do

for j := i + 1 to n do

if c[i] = c[j] then

begin

writeln(taskесть одинаковые элементы task);

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

end;

writeln(taskНет одинаковых элементовtask)

end.