[Alinca3303]

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


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

[DelphiM0ZG]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

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

Код:

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

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