Пусть дано 10 вещественных чисел, которые вводятся по одному. Вычисли-те разность между максимальным и минимальным числами. паскаль ABC - №5753917

Пусть дано 10 вещественных чисел, которые вводятся по одному. Вычисли-те разность между максимальным и минимальным числами. паскаль ABC
- Предмет:
  Информатика
- Автор:
  reynolds
- 6 лет назад

Ответы 1

var a,min,max:real;i:integer;beginmax:=-999999;min:=999999;for i:=1 to 10 do beginread(a);if a>max then max:=a;if a<min then min:=a;end;writeln(max-min);end.
- Автор:
  scruffy
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years