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

 

Answer 2

Примеры программ на языке Pascal, решающие задачи:

1. Поиск самой глубокой ямы в массиве:

arduinoCopy code
var
  arr: array of Integer;
  i, j, n, minIndex, deepestIndex: Integer;
  deepestValue: Integer;

begin
  Write('Введите размер массива: ');
  Readln(n);
  SetLength(arr, n);
  
  // Вводим элементы массива с клавиатуры
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент массива: ');
    Readln(arr[i]);
  end;
  
  // Ищем яму в массиве
  deepestValue := MaxInt; // Изначально самая глубокая яма имеет максимальное значение
  deepestIndex := -1;
  for i := 1 to n - 2 do // Проверяем каждый элемент массива, кроме первого и последнего
  begin
    if (arr[i] < arr[i - 1]) and (arr[i] < arr[i + 1]) and (arr[i] < deepestValue) then
    begin
      deepestValue := arr[i];
      deepestIndex := i;
    end;
  end;
  
  // Выводим результаты
  if deepestIndex = -1 then
    WriteLn('В массиве нет ям')
  else
    WriteLn('Самая глубокая яма имеет значение ', deepestValue, ' и находится в ячейке ', deepestIndex);
end.

2. Поиск пар элементов массива с произведением, кратным 7:

arduinoCopy code
var
  arr: array of Integer;
  i, n, count: Integer;
  
begin
  Write('Введите размер массива: ');
  Readln(n);
  SetLength(arr, n);
  
  // Вводим элементы массива с клавиатуры
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент массива: ');
    Readln(arr[i]);
  end;
  
  // Ищем пары элементов с произведением, кратным 7
  count := 0;
  for i := 0 to n - 2 do
  begin
    if (arr[i] * arr[i + 1] > 0) and ((arr[i] + arr[i + 1]) mod 7 = 0) then
      count := count + 1;
  end;
  
  // Выводим результаты
  WriteLn('Количество пар элементов массива, произведение которых положительно и сумма кратна 7, равно ', count);
end.

3. Поиск первой строки во второй строке и добавление ее в конец:

scssCopy code
var
  str1, str2: string;
  pos: Integer;
  
begin
  Write('Введите первую строку: ');
  Readln(str1);
  Write('Введите вторую строку: ');
  Readln(str2);
  
  // Ищем первую строку во второй строке
  pos := Pos(str1, str2);
  if pos > 0 then
  begin
    // Если первая строка найдена, вырезаем ее и добав