Question

ПАСКАЛЬ. 9 КЛАСС

В одномерном массиве целых чисел найти максимальную разность двух соседних чисел (ввод чисел организовать с клавиатуры).

Answer 1

Ответ:

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.

Объяснение: