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

[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

[Archon]

Бредово пишешь задания: 3-е ещё понятно, но в 7-ом вообще бред какой-то.

Код

Program Aleeex00;
Uses crt;
const
 n_max = 20;
var
 i, j, n : integer;
 Y : array [1..n_max] of integer;
 Yes : boolean;
Begin
 ClrScr;
 Write('Введите колличество элементов массива (не больше ',n_max,'): ');
 Readln(n);
 For i := 1 to n do
 Begin
   Write('Элемент [', i, '] = ');
   Readln(Y[i]);
 End;
 Yes := false;
 For i := 1 to n-1 do
   For j := i+1 to n do
   Begin
     if Y[i] = Y[j] then
     Begin
       Yes := true;
       Writeln('Y[', i, '] = Y[', j, '] = ', Y[i]);
     End;
   End;
 if not Yes then Writeln('Нет совпадений!');
 ReadKey;
End.

klem4, мой вариант лучше B)