Файл данных:
Первое — это архивный шифр. Он состоит из названия фонда, номера фонда, номера описи, номера единицы хранения (дела), номера листа в деле. Пусть будет: ГА. Ф. 111. Оп. 5. Д. 469. Л. 342, 347-347 об., 374 (Государственный архив. Фонд 111. Опись 5. Дело 469. Листы 342, 347-347 оборот, 374)
Название фильма: Бегущий в лабиринте: Лекарство от смерти
Режиссер: УэсБолл
Год выпуска: 2018
Страна: США
Актеры: Кая Скоделарио, Дилан О'Брайэн, Натали Эммануэль, Кэнтрин МакНамара, Томас Сэнгстер, Уолтон Гоггинс, Роза Салазар, Джанкарло Эспозито, Патриция Кларксон, Бэрри Пеппер, Ки Хонг Ли, Джейкоб Лофленд и другие.
Носитель: CD
Отдано: 1
_______________________
Файл друзей:
Фамилия: Колер, Сун
Имя: Скот, Девин
Телефон: +1 650 759-97-50 (США)
Дата выдачи: 1.02.2018 (дата выхода фильма)
Дата возвращения: 11.03.2018
===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
Вот значения при которых мы получим такой ответ:
9 10 11 12 13 14 15 16 17 18 19 20
Наибольшее = 20.
Прости, нашел я это глупым методом поставив цикл for k:0 to 1000000
и выводя все значения. Ибо нету времени разбираться... Не знаю так-же что такое longint , потом обязательно для себя рассмотрю что это :)
Вот пример того как я это нашел, хоть медот и тупой, но он работает:
var k, i,max,m : longint;
function f(n: longint): longint;
begin f := n * n * n;
end;
function g(n: longint): longint;
begin g := 3*n + 3;
end;
begin i := 1;
for k:=0 to 1000000 do begin
while f(i) < g(k) do i := i+1;
if i=4 then writeln(k);
end;
end.
Программа может выглядеть так:
uses crt;
const m=1000;
type Mas=array [1..m] of integer;
Var A: Mas;
i, Max, n: integer;
Begin
ClrScr;
Write('n = ');
ReadLn(n);
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]>Max then Max:=A[i];
Writeln;
WriteLn ('Max = ', Max);
ReadLn;
end.
Var
max, i : integer;
a : array [1..20] of integer;
begin
max := -1;
for i := 1 to 20 do read (a[i]);
for i := 1 to 20 do
if (a[i] < 1000) and (a[i] > 99) and (a[i] mod 4 = 0) and (a[i] > max) then
max := a[i];
if max > -1 then write (max) else write ('Nety');
end.