есть ли в массиве одинаковые числа Опции

[Aleeex]

Вот:

3. Длина массива N<=20. Исходные данные задать самостоятельно.
Проверить имеется ли в данном массиве Y(10) хотя бы одна пара чисел совпадающих по величине.
7. Задана квадратная матрица A(5,5). Матрица X(5,5). Получить X1X5+X2X4+X3X3+X4X2+X5X1, где xi наибольшее значение элементов i-го столбца исходной матрицы.

Сообщение отредактировано: мисс_граффити - 13.06.2007 10:37

[klem4]

1)

flag:=false;
i:=1;
while(i<=n-1)and not(flag) do begin
    j:=i+1;
    while(j<=n)and(not(flag)) do
      if y[i]=y[j] then
        flag:=true
      else inc(j);
     inc(i);
end;

if flag then writeln('Yes')
 else writeln('No');

2) не понял чо делать надо

Сообщение отредактировано: klem4 - 16.06.2005 13:54