Напишите программу , которая в последовательности 9-ти целых чисел определяет разницу наибольшего и наименьшего чесл
Answers & Comments
pokemanbr
Program primer; var n,max,min,i:integer; begin for i:=1 to 9 do begin readln(n); if(i=1) then begin max:=n; min:=n; end; if(n>max) then max:=n; if(n<min) then min:=n; end; writeln(max-min); end.
1 votes Thanks 1
cavani508p78lmx
Можешь помочь еще 1 задачей , пожалуйста? Я ее тоже вывесил ; 10 баллов
Answers & Comments
var
n,max,min,i:integer;
begin
for i:=1 to 9 do begin
readln(n);
if(i=1) then begin
max:=n;
min:=n;
end;
if(n>max) then max:=n;
if(n<min) then min:=n;
end;
writeln(max-min);
end.