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 (i<n) and(a[i-1]>a[i]) and (a[i+1]>a[i]) and (a[i]<min)

   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