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

[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

[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)

[klem4]

в твоем варанте лишние действия, коорые не требуются в задании.

[Archon]

:D :D :D Да ладно, я ребячусь. :p7: :flowers:

[Aleeex]

Спасибо большое! А, что во второй и сам не знаю - такое задание дали. Ну хоть примерно попробуйте, как кто поймет!

За нарушение правил знаешь, что бывает? И за флейм тоже...

Сообщение отредактировано: volvo - 16.06.2005 14:50