Вводятся N целых случайных чисел. Найти разницу между наибольшим и наименьшим из них. В Паскале
Answers & Comments
simbion0
/PascalABC.NET Var n,i,s,max,min:integer; begin max:=-1000; min:=1000; write('Введите кол-во элементов: '); readln(n); for i:=1 to n do begin s:=random(2000)-1000; write(s,' '); if s>max then max:=s; if s<min then min:=s; end; writeln; writeln('Максимальный элемент: ',max, ' Минимальный: ', min,' Разница между элементами: ', max - min); end.
Answers & Comments
Var
n,i,s,max,min:integer;
begin
max:=-1000;
min:=1000;
write('Введите кол-во элементов: ');
readln(n);
for i:=1 to n do begin
s:=random(2000)-1000;
write(s,' ');
if s>max then max:=s;
if s<min then min:=s;
end;
writeln;
writeln('Максимальный элемент: ',max, ' Минимальный: ', min,' Разница между элементами: ', max - min);
end.