одномерный массив Опции

[asCOOLs]

Дан массив из пяти чисел . Среди них:
1)если одинаковы 5, то напечатать число 1, иначе
2)если одинаковы 4, то напечатать число 2, иначе3
3)если одинаковы 3 и 2, то напечатать число 3, иначе
4)если одинаковы 3, то напечатать число 4, иначе
5)если одинаковы 2 и 2, то напечатать число 5, иначе
6)если одинаковы 2, то напечатать число 6, иначе
7)напечатать число 7

помогите на Pascal составить прогу

[klem4]

Пожалста :low:

Код

uses crt;
var i,j,p:integer;
   a:array[1..5] of integer;

Begin

  clrscr;
  randomize;

  for i:=1 to 5 do
   begin
      a[i]:=random(5);
      write(a[i]);
      write(' ');
   end;

  writeln;
  p:=0;
  for i:=1 to 4 do
   for j:=i+1 to 5 do
    if a[i]=a[j] then
     inc(p);
  case p of
    10:writeln(1);
     6:writeln(2)
   else
    writeln(7-p);
  end;

 repeat
  keypressed;
 until keypressed;

END.

Интересная задача.

[asCOOLs]

Флейм удален. Вся личная переписка - через PM

klem4 спосибо за решение.

Сообщение отредактировано: volvo - 16.12.2004 0:54