Найти в массиве все пары аi, ai+1, такие, что аi<=3 и ai+1<0

ALEX_LaViLaS

Доброго времени суток. Помогите составить программу: "Дан массив целых чисел а1,…, аn. Найти в нем все пары аi, ai+1, такие, что аi<=3 и ai+1<0. Распечатать их значения и номера. Если таких пар нет, то выдать сообщение." Заранее благодарю.
1 ответ

ALEX_LaViLaS

uses crt;
const nmax=20;
var a: array [1..nmax] of integer;
    n,i,k: byte;
begin
repeat
write('Количество элементов, не более ',nmax,', n='); readln(n);
until n in [1..nmax];
writeln('Дан массив');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:3);
    end;
writeln;
writeln('Элементы, соответствующие условию');
for i:=1 to n-1 do
    if (a[i]<=3) and (a[i+1]<0) then
       begin
       inc(k);
       writeln('a [i] =',a[i]:3,', a[i+1]=',a[i+1]:3,' под индексами ',i:3,' и ',i+1:3);
       end;
if k=0 then writeln('Нет элементов, удовлетворяющих условию') else
   begin
   writeln('-------------------------');
   writeln('Всего элементов ',k);
   end;
readln;
end.