Вычислить разность между максимальным и минимальным из чисел - Turbo Pascal

Формулировка задачи:

Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

Код к задаче: «Вычислить разность между максимальным и минимальным из чисел - Turbo Pascal»

textual
const
 n = 8;
var
 arr: array[1..n] of integer;
 i, min, max: integer;
begin
 min:=1; max:=1;
  for i:=1 to n do
   begin
    arr[i]:=random(100);
    write(arr[i], ' ');
     if arr[i] < arr[min] then min:=i
      else if arr[i] > arr[max] then max:=i;
   end;
 writeln;
 writeln('Максимальный: ', arr[max], '; Минимальный: ', arr[min]);
 writeln('Разница между ними: ', arr[max] - arr[min]);
end.

15   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ