Задача на массивы Опции

[Tatjanka]

Помогите пожалуйста решить задачи.
Вот одна из них:

Дан числовой массив А(35). Найдите, в массиве есть пара одинаковых чисел. Сколько одинаковых чисел, если они есть?

[mithquessir]

Ну, наверное так:

Код

var
 num,i,j:integer;
 a:array[1..35] of integer;
begin
 randomize;
 for i := 1 to 35 do
 a[i] := random(100);
 for i := 1 to 35 do
 for j := i + 1 to 35 do
 if a[i] = a[j] then
 Inc(num);
 for i := 1 to 35 do
 begin
   Write(a[i]:3);
 end;
WriteLn;
 WriteLn(num);
end.

Сообщение отредактировано: volvo - 1.12.2004 19:58