список

[maner0k]

всем привет, помогите мне, пообещал девушке сделать прогу --- забыл, нада на завтра.... пожалуста помогите.


Проверить, есть ли в списке L хотя бы два одинаковых элемента.

[Monte-Kristo]

k:=0;
for i:=1 to n-1 do
 for j:=2 to n do
  begin 
    if a[i] = a[j] then k:=k+1;
    if k=2 then
      begin
        write('Da, east')
        exit;
      end;
    end;
if k<2 then write('Net,nety');
readln;
end.

[Monte-Kristo]

Чет вроде этого....

[sheka]

а я обещал девушке три торта, бутылку коньяка, ужин при свечах...
поможешь? (сегодня ночью надо это все + лимузин).

Monte-Kristo, +1.