Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.
Ответы
Ответ дал:
0
Сделал разницу значений.Сначала вводится длинна массива.Сделано через динамический массив!
Поставь наилучшее решение!)
var a:array of Integer; n,i,max,min:Integer;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
readln(a[i]);
max:=a[0];
for i:=0 to Length(a) do
if a[i]>max then
max:=a[i];
min:=a[0];
for i:=0 to Length(a) do
if a[i]<min then
min:=a[i];
Writeln;
Writeln(max-min);
readln;
end
Поставь наилучшее решение!)
var a:array of Integer; n,i,max,min:Integer;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
readln(a[i]);
max:=a[0];
for i:=0 to Length(a) do
if a[i]>max then
max:=a[i];
min:=a[0];
for i:=0 to Length(a) do
if a[i]<min then
min:=a[i];
Writeln;
Writeln(max-min);
readln;
end
Вас заинтересует
6 лет назад
9 лет назад
9 лет назад