Дан массив из пяти чисел . Среди них:
1)если одинаковы 5, то напечатать число 1, иначе
2)если одинаковы 4, то напечатать число 2, иначе3
3)если одинаковы 3 и 2, то напечатать число 3, иначе
4)если одинаковы 3, то напечатать число 4, иначе
5)если одинаковы 2 и 2, то напечатать число 5, иначе
6)если одинаковы 2, то напечатать число 6, иначе
7)напечатать число 7
помогите на Pascal составить прогу
Пожалста :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.
Интересная задача.
Флейм удален. Вся личная переписка - через PM
klem4 спосибо за решение.