Очень сложная задача, помогите решить...

[jaw]

Ладно,раз уж никто не хочет помочь,а задачу мне надо решить до 1 ноября и сдать,то прошу модераторов полностью удалить мою тему...эх...

[Cantana]

а Ток это откуда как считаеться формула есть?

[jaw]

Спасибо за ваши подсказки,извините что не ответила,были проблемы с интернетом. Но все же я смогла решить задачу! Не могли бы вы мне дать советы как решить очередную задачу: дан массив из n чисел,заменить нулями элементы массива,оставив на местах наибольшее и наименьшее значение. Подскажите,пожалуйста,как оставить на местах наибольшее и наименьшее значение,а все остальное заменить...помогите,плиз

[_Dmitry]

Ну что, настойчивая девушка , держи решение. Надеюсь оно будет только лишь примером, а дальнейшие программы напишите сами

uses  crt;
const
  N = 100;
var
  M: array[1..N] of integer;
  i,max,min: integer;
begin
  clrscr;
{заполняем массив случайными числами и печатаем его}
  randomize;
  for i:=1 to N do
    begin
      M[i]:=1+random(99);
      write(M[i]:4);
    end;
  writeln; writeln;
{ищем max и min числа в массиве}
  max:=M[1]; min:=M[1];
  for i:=2 to N do
    begin
      if M[i] > max then max:=M[i];
      if M[i] < min then min:=M[i];
    end;
{заполняем массив нулями, max и min оставляем}
  for i:=1 to N do
    begin
      textbackground(black);
      if (M[i] <> max) and (M[i] <> min) then M[i]:=0
        else textbackground(red);
      write(M[i]:4);
    end;
{останавливаем программу до нажатия Enter}
  readln;
end.

Будет работать на Паскале, в Delphi не скомпилируется.

[jaw]

огромное спасибо,я почти была права а можно без оператора Randomize эту программу сделать? И просветите,что значит textbackground(для чего это)

[_Dmitry]

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

огромное спасибо,я почти была права а можно без оператора Randomize эту программу сделать? И просветите,что значит textbackground(для чего это)

Массив заполняется случайными числами, если убрать Randomize то последовательность цифр будет всегда одна и та же, а с Randomize цифры всегда будут разными. Textbackground используется для красоты - выделяет красным цветом max и min.

[jaw]

Еще раз спасибо! Вы меня выручили(хотя в универе нам не рассказывали про этого оператора) прошу прощения,если вас напрягла...

[Анжелика]

А не могли бы вы прислать програмное решение задачи с которой всё началось?