Question

Дан массив состоящий из 20 элементов веденных с клавиатуры найти количество пар соседних элементов разность между которыми равна 5.

Answer 1

примерно так

 

 

uses crt;
var i,count:integer;
a:array[1..20] of integer;

begin
randomize;
count:=0;
for i:=1 to 20 do a[i]:=random(99)+1;
for i:=1 to 20 do write(a[i],' ');
for i:=1 to 20-1 do
begin
if (a[i+1]-a[i]=5) then inc(count); end;
writeln;
writeln(' count = ', count);
readln;

end.