50*40*60=120000бит всего/100=1200бит в одной странице/8=150байт в одной странице /1024=0,146484375кбайт водной странице/1024=1,4305147460мбайт в одной странице
Данные в каждый массив вводим по строго по возрастанию через пробел, признак окончания ввода - число 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.
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.
