Вводятся N целых случайных чисел. Найти разницу между наибольшим и
наименьшим из них. В Паскале
/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
writeln;
writeln(Максимальный элемент: ,max, Минимальный: , min, Разница между элементами: , max - min);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
