Массывы (Delphi 7)

[Роман Романов]

а можно полностью написать программу
В заданном массиве размером N определить среднее значение его элементов, предварительно отбросив максимальный и минимальный по модулю элементы.

[Ybn2]

Роман Романов
Хорошо, тоже подождите 15-20 минут. Я курить хочу.

[Роман Романов]

а можно полностью написать программу
В заданном массиве размером N определить среднее значение его элементов, предварительно отбросив максимальный и минимальный по модулю элементы.

[Роман Романов]

хорошо...

[Elec92]

большое спасибо...
но, а нельзя проще сделать (console application)

типо такого чего то там delphi 7

program massiv;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var A,B,C:real;
begin
  ....
end.

что б решение выводило в командной строке...

[Ybn2]

Сообщение от Роман Романов

хорошо...

Вот ваша программа проверяйте!

[Ybn2]

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

большое спасибо...
но, а нельзя проще сделать (console application)

Вы бы сразу сказали, я бы не мучался! Сейчас переделаю! Кстати, давайте сразу, как вводить массив с клавиатуры или случайными числами?

[Elec92]

вводить с клавиатуры, прошу прощения что сразу не сказал

[Ybn2]

Elec92
Посмотрите так:

[Ybn2]

Роман Романов
Вы проверили, все нормально, или Вам тоже в консоле надо было?