Помогите пожалуйста паскаль, напишите программы С клавиатуры вводится массив. Ямой...

Question

Помогите пожалуйста паскаль, напишите программы С клавиатуры вводится массив. Ямой называется не крайний элемент массива,который меньше обоих своих соседей. Необходимо найти в массиве самую глубо-кую яму, то есть яму, значение которой минимально. Если в массиве нет ни однойямы, ответ считается равным О.Склавиатуры вводится массив. Найти и вывести количество пар элементов мас-сива, произведение которых положительно, а сумма кратна 7. Под парой подра-зумевается два подряд идущих элемента массива.С клавиатуры вводятся две строки. Программа должна найти первую строкувнутри второй, вырезать ее и добавить в конец.​

Answer 1

1.                                                                    

program raf105;

const

 n = 10;

var

 a:array[1..n] of integer;

 i,min:integer;

begin

min:= 10000;

writeln('Вводите числа по очереди');

for i:=1 to n do

begin

 readln(a[i]);

 if (i>1) and (ia[i]) and (a[i+1]>a[i]) and (a[i]

   then min:= a[i];

end;

if min= 10000

 then min:= 0;

writeln('Самая глубокая яма: ',min);

end.

2.                                                                    

program raf105;

const

 n = 10;

var

 a:array[1..n] of integer;

 i,o:integer;

begin

writeln('Вводите числа по очереди');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n-1 do

begin

 if (a[i]*a[i+1]>0) and (((a[i]+a[i+1]) mod 7)=0)

   then o+=1;

end;

writeln('Вывод: ',o);

end.

3.                                                                    

program raf105;

var

 s1,s2,s3:string;

 i,j,o:integer;

begin

writeln('Введите первую строку:');

readln(s1);

writeln('Введите вторую строку:');

readln(s2);

s3:=s2;

o:= pos(s1,s2);

if o>0

 then

 begin

   delete(s3,o,length(s1));

   s3+= s1;

 end

 else s3:='В строке "' + s2 + '" не найдено строки "' + s1 + '"';

writeln(s3);

end.

Язык PascalABC