лабораторная работа / вар22 / Лаб5
.docБалаковский институт техники технологий и управления
Лабораторная работа №5
Вариант 22
Выполнил студент УИТ-22
Балаково 2007 год.
Задание: Введите массив и определите, есть ли в нем элементы с одинаковыми значениями. Выведите их на экран.
Текст программы:
program lab5;
var
a:array[1..20] of real;
n,j,i:byte;
begin
Writeln('Введите количество элементов');
read(n);
Writeln('Введите массив');
for i:=1 to n do
begin
Read(a[i]);
end;
writeln('Повторяющиеся значения:');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j] Then
writeln(a[i]:1:0);
end.
Рис.1 Блок–схема программы