[Dinamo94]

Програма делфи. В массиве из 10 целых чисел, рассчитать половину суммы минимального и максимального елементов массива.

[Uniq!]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var  a:array [0..9] of integer;  maxA, minA : integer;  res : real; begin randomize; for i:=0 to 9 do   a[i] := rand(1000);   maxA :=0; minA := 0; for i:=0 to Length(a) do  begin    if maxA < a[i] then maxA := a[i];    if minA > a[i] then minA := a[i];  end;   res := (maxA + minA) / 2;

Это сообщение изменило мой статус на Активный