[edmilson]

прошу народ кто-нибудь помогите с частью моего диплома
1 Дана последовательность действительных чисел а(1), а(2) ... а(n).
Среди них есть равные.Найти первый максимальный элемент и заменить его нулем.
2 Даны два двух мерных массива одинаковой размерности 5x5 из целых чисел. Проверь, равны ли массивы между собой. Вывести сообщение об этом.

Заранее благодарю

[lmikle]

Ну и дипломы у вас...
Элементарные задачи на циклы.

Код:

procedure UpdateArray(var A : Array Of Integer);
var
  I, Idx : Integer;
begin
  Idx := Low(A);
  For I := Low(A) To High(A) Do
    If A[i] > A[Idx] Then Idx := I;
  A[Idx] := 0;
end;

function IsArraysEqual(A, B : Array Of Array Of Integer) : Boolean;
var
  I, J : Integer;
begin
  // Проверяем размерности массивов
  Result := (Length(A) = Length(B)) And 
               (Length(A[Low(A)]) = Length(B[Low(B)]));

  // Проверяем соджержимое массивов
  If Result Then
    For I := Low(A) To High(A) Do
      For J := Low(A[i]) To High(A[i]) Do
        Begin
          Result := A[I,J] = B[I,J];
          If Not Result Then Break;
        End;
end;

[Konrad]

Сообщение от edmilson

прошу народ кто-нибудь помогите с частью моего диплома
1 Дана последовательность действительных чисел а(1), а(2) ... а(n).
Среди них есть равные.Найти первый максимальный элемент и заменить его нулем.
2 Даны два двух мерных массива одинаковой размерности 5x5 из целых чисел. Проверь, равны ли массивы между собой. Вывести сообщение об этом.

Это часть диплома?
Может вы ошиблись?
Тут на целую кандидатскую или докторскую тянет, а то и на нобелевскую премию.

[CTAJLUH]

edmilson отстань от него он сказал что это не часть его дипломной работы, а часть диплома может он хочет из ЭТОЙ ПРОГИ себе красный деплом связать нуда или сшить