Консультация № 136459
12.05.2008, 13:42
0.00 руб.
0 1 1
Вывести массив(не более 20 элементов) и определить есть ли в нем элементы с одинаковыми значениями

Обсуждение

давно
Старший Модератор
31795
6196
16.05.2008, 22:45
общий
это ответ
Здравствуйте, Cobain!

Смотрите приложение.
Изменяя константу К Вы можете получать различные результаты.
Удачи!

Приложение:
const n=20; k=40;var a:array[1..n]of integer; b,c:integer; d:boolean;begin randomize; d:=false; for b:=1 to n do begin a[b]:=random(k); write(a[b]:4); c:=1; while c<b do begin if a[c]=a[b] then d:=true; inc(c); end; end; writeln; writeln(d);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа