Определить повторы появления чисел по мере появления и вывести их на экран

@lera_boom · Регистрация: 12.11.2012

Author24 — интернет-сервис помощи студентам

Программа генерирует последовательность случайных чисел от 0 до 100. Определить повторы появления чисел по мере появления и вывести их на экран.

Добавлено через 3 часа 31 минуту

Pascal

uses crt;
type
mng = set of 1..100;
var mn:mng; i,a:byte;
begin
randomize;
for i:=1 to 100 do
begin
a:=random(100);
if a in mn then
write(a,' ')
else
mn:=mn+[a];
end;
end.

@кот Бегемот · 25.12.2012, 01:08

Pascal

var
a:array[0..100]of integer;
b,i:integer;
c:char;
begin
c:=' ';
for i:=0 to 100 do
a[i]:=0;
randomize;
repeat
b:=random(101);
writeln(b);
inc(a[b]);
if a[b]=2 then
begin
writeln('povtor chisla ',b);
dec(a[b]);
end;
writeln('prodoljaem? (y/n)');
readln(c);
until c='n';
end.

	25.12.2012, 01:08