[kramar]

Задание такое: разработать программу, осуществляющую ввод 7 значений и нахождение минимального или максимального при нажатии командной кнопки, а также выдачу результата.

Желательно на 6 или 7 версии Delphi. Зараннее благодарен за помощь!

[Ross]

Тебе необходимо чтоли следующее?:
- сгенерировать 7 чисел
- найти минимальное - показать
- найти максимальное - показать
Это чтоли.

[kramar]

Числа ввести вручную. Вводить можно хоть в Memo, это без разницы!

[Aristarh Dark]

kramar лови пример, под GUI сам перепишешь, должен же ты что-то сам сделать

Код:

program Project;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  ValuesCount=7;
var
  ValArray:array [1..ValuesCount] of Integer;
  MaxVal,MinVal:Integer;
  Counter:integer;
begin
  MaxVal:=-2147483647;    //Min of type Integer
  MinVal:=2147483647;     //Max of type Integer
  //Read values
  WriteLn('Input values');
  for Counter:=1 to ValuesCount do
    begin
      WriteLn('Value '+IntToStr(Counter));
      ReadLn(ValArray[Counter]);
      if MaxVal<ValArray[Counter] then MaxVal:=ValArray[Counter];  //find max value
      if MinVal>ValArray[Counter] then MinVal:=ValArray[Counter];  //find min value
    end;
  WriteLn('Max value:'+IntToStr(MaxVal));
  WriteLn('Min value:'+IntToStr(MinVal));
  //Suspend
  ReadLn;
end.

[kramar]

спасибо! а что такое GUI ?

[Aristarh Dark]

Давно я так заразительно не смеялсо )))

Rtfm

[4kusNick]

=))))
GUI - Graphical user interface, то бишь, пользовательский интерфейс =)