pascal

const d = 4; var N: integer; a: array[1..10000] of integer; {хранение всех элементов последовательности} mn:integer; {минимальное введенное число} {не считая d последних} m:integer; {минимальное значение суммы} i: integer; begin readln(N);{Ввод всех элементов последовательности} for i:=1 to N do...

var N: integer; {количество чисел} a: integer; {очередное число} n26, n13, n2: integer; k26: integer; {количество требуемых пар} i: integer; begin readln(N); n26:=0; n13:=0; n2:=0; for i:=1 to N do begin readln(a); if a mod 26 = 0 then...

Создать типизированный файл, куда записать n чисел. Из исходного файла сформировать массив, записав в него числа, расположенные в файле до максимального элемента и после минимального