ПАСКАЛЬ. 9 КЛАСС
В одномерном массиве целых чисел найти максимальную разность двух соседних чисел (ввод чисел организовать с клавиатуры).
Ответы на вопрос
Ответил mesmerizingbutterfly
0
Ответ:
program raznost;
var i,s,n,m:integer;
a: array [1..15000] of integer;
begin
readln(n);
for i:=1 to n do
readln (a[i]);
s:=0; m:=0;
for i:=1 to n-1 do begin
s:=abs(a[i]-a[i+1]);
if s>m then
m:=s;
end;
writeln ('Maksimalnaya raznost` ravna ',m);
end.
Объяснение:
Новые вопросы
Другие предметы,
2 года назад
Русский язык,
2 года назад
Биология,
7 лет назад
История,
7 лет назад
Математика,
8 лет назад
Алгебра,
8 лет назад