Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

примерно так

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.