Дан одномерный массив 10 целых чисел.
Найти наибольшую и наименьшую разность между двумя соседними элементами и указать номера этих элементов.
var a:array [1..10] of integer;maxi,mini,max,min:integer;Begin maxi:=2; mini:=2; for i:= 1 to 10 do Begin read(a[i]); if i=2 then begin max = a[i]-a[i-1]; mix = a[i]-a[i-1]; end; if i>2 and max < a[i]-a[i-1] then begin max = a[i]-a[i-1]; maxi = i; end; if i>2 and min > a[i]-a[i-1] then begin mix = a[i]-a[i-1]; mixi = i; end; end; writeln('min: a[',mini,'] - a[',mini-1,'] = ',min); writeln('max: a[',maxi,'] - a[',maxi-1,'] = ',max);End.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var a:array [1..10] of integer;
maxi,mini,max,min:integer;
Begin
maxi:=2;
mini:=2;
for i:= 1 to 10 do Begin
read(a[i]);
if i=2 then begin
max = a[i]-a[i-1];
mix = a[i]-a[i-1];
end;
if i>2 and max < a[i]-a[i-1] then begin
max = a[i]-a[i-1];
maxi = i;
end;
if i>2 and min > a[i]-a[i-1] then begin
mix = a[i]-a[i-1];
mixi = i;
end;
end;
writeln('min: a[',mini,'] - a[',mini-1,'] = ',min);
writeln('max: a[',maxi,'] - a[',maxi-1,'] = ',max);
End.