СОЗДАЙТЕ ПРОЕКТ НА ТЕМУ НОВОСТИ СПОРТА СОБЛЮДАЯ ИНСТРУКЦУЮТ • Определение темы и цели проекта;
• Поиск и сбор необходимой информации( материала);
• Важность и актуальность темы;
• Полное раскрытие темы;
• Оформление текста по требованию;
• Умение раскрывать содержание проекта;
• Анализ полученных результатов( что вы хотели показать этим проектом);
• Выслать проект на проверку в Еду Марк.

Данные в каждый массив вводим по строго по возрастанию через пробел, признак окончания ввода - число 0 или отрицательное, в конце ввода Enter.

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqIntegerWhile('Последовательность 1:',t->t>0).ToArray;
  var b:=ReadSeqIntegerWhile('Последовательность 2:',t->t>0).ToArray;
  (var n,var m):=(a.Length-1,b.Length-1);
  (var i,var j,var k):=(0,0,0);
  repeat
    if a[i]=b[j] then begin k+=1; i+=1; j+=1 end
    else
      if a[i]<b[j] then i+=1 else j+=1;
  until (i>n) or (j>m);
  Writeln('k=',k)
end.

Пример
Последовательность 1: 2 3 5 8 11 14 19 23 38 0
Последовательность 2: 1 3 4 5 6 9 11 14 17 18 21 23 29 0
k=5

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Количество отрицательных значений ',a.Where(t->t<0).Count);
end.

Пример
n= 15
3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21
Количество отрицательных значений 5

№2

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=ReadInteger('k=');
  if a.ElementsByRow.Any(t->t>k) then Writeln('Есть')
  else Writeln('Нет')
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив ***
  -9  48 -98 -35 -33 -29  44 -32
 -33 -48 -62  11  45  53  52  90
 -96  -1  68 -21  15 -72 -78 -28
  44  15 -53 -33 -27  89 -60 -49
  28 -73 -99  81  23  -9 -93 -66

k= 92
Нет