[Alinca3303]

помогите написать программу...буду очень благодарна


Заменить максимальный элемент массива на противоположный по знаку.

[DelphiM0ZG]

И в чём была проблема? Задачка-то элементарная!..

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  Mas: Array[0..99] Of Integer;
  i, n, MaxInd: Byte;

begin
  Repeat
    Write('N = ');
    ReadLn(N); // проверочка ввода количества элементов
  Until (N In [1..100]);

  Dec(N); // отнимаю от N единичку
  Randomize;
  For i:=0 To N Do
    Begin // заполняю массив и вывожу на экран
      Mas[i]:=Random(200)-100;
      WriteLn(Mas[i]);
    End;

  MaxInd:=0; // предполагаю, что максимум - перый элемент
  For i:=0 To N Do // ищу максимум
    If (Mas[MaxInd]<Mas[i]) Then
      MaxInd:=i; // индекс максимального элемента

  WriteLn;
  WriteLn('Max = ', Mas[MaxInd]);
  WriteLn;

  Mas[MaxInd]:=-Mas[MaxInd]; // меняю знак
  For i:=0 To N Do  // вывожу массив на экран
    WriteLn(Mas[i]);

  WriteLn;
  WriteLn('Press ENTER!!!');
  ReadLn;
end.

[Alinca3303]

спасибо большое))

[Alinca3303]

Заменить нулями элементы массива между минимальным и максимальным, кроме их самих.

[ART]

Ну это, мадам, уже наааглость

[v1s2222]

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

спасибо большое))

Если Вы кому-то благодарны - нажмите на кнопку "Спасибо", она для этого и сделана.

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

Заменить нулями элементы массива между минимальным и максимальным, кроме их самих.

Скажите, в чем сложность задания? Если что-то не понятно - пишите что. Если вообще ничего - вам в раздел Работа.
Если не знаете как найти минимальный/максимальный элемент - гугл Вам в помощь.
ЗЫ опоздал

[DelphiM0ZG]

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

Заменить нулями элементы массива между минимальным и максимальным, кроме их самих.

Вы же уже знаете как найти максимальный элемент, минимальный находится по такому же принципу - заведите переменную MinInd, и в том же цикле поставьте такое же условие, только со знаком "больше" (>).

Нашли эти 2 элемента: выясняем какой индекс больше, а какой меньше с помощью простого условного оператора If ... Then

Для примера я предположу, что: MinInd<MaxInd

Код:

For i:=MinInd+1 To MaxInd-1 Do
  Mas[i]:=0;

Это же элементарно. А первая задача - вообще до ужаса простая.