Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
50
Добавлен:
10.02.2014
Размер:
38.91 Кб
Скачать

Балаковский институт техники технологий и управления

Лабораторная работа №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 Блок–схема программы

Соседние файлы в папке вар22