Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Математическая задача (одномерный массив)

Автор: sanec 17.12.2008, 08:44

Помогите пожалуйста решить задачу!!
Математическая задача (одномерный массив)
Найти сумму наименьшего и наибольшего элементов у заданной последовательности целых чисел

Автор: Frees 17.12.2008, 08:52

Код


var i, min, max: integer;
 a: array[0..10] of integer;
.....
function GetMinMaxSum: Integer;
begin
max:=a[0];
min:=a[0]
for i := 1 to 10 do
begin
    if max<a[i] then
      max := a[i];
   if min > a[i] then
     min := a[i];
end;
result := min + max;
end;

Автор: Sovereign 17.12.2008, 10:06

либо так

Код


procedure TForm1.Button1Click(Sender: TObject);
var ar: array [0..10] of integer;
i:integer;
begin
randomize;
for i:=0 to 10 do
    ar[i]:= round(random*100);
showmessage(inttostr(MaxIntValue(ar)+MinIntValue(ar)));
end;

Автор: Alexeis 21.12.2008, 13:20

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!