Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189426
18.05.2016, 17:17
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
написать программу на языке паскаль: Определите есть ли в массиве А элементы с одинаковыми зна-
чениями . Выведите их на экран

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2016, 13:41
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:[code lang=pascal h=200]const
n=20;
var
a:array[1..n]of integer;
b,c,d:integer;
begin
{создаем массив}
writeln('Massiv A:');
randomize;
for b:=1 to n do
begin
a[b]:=random(100);{новый элемент}
write(a[b]:3);{выводим}
end;
writeln;
{поиск одинаковых значений}
write('Result:');
c:=0;
for b:=1 to n-1 do
for d:=b+1 to n do
if a[b]=a[d] then{сравниваем значения}
begin
write(a[b]:3);{выводим найденое}
inc(c);{считаем их количество}
end;
{выводим сообщение об отсутствии совпадений}
if c=0 then writeln('there are not identical.');
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа