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

Информатик111111 Информатик111111    3   05.06.2019 00:20    6

Ответы
vikasibarik vikasibarik  05.07.2020 17:55
Var a,min,max:real;
i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to 10 do begin
read(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln(max-min);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика