Имя входного файла: стандартный ввод имя выходного файла: стандартный вывод ограничение по времени: 1 секунда ограничение по памяти: 256 мегабайт у жарасхана есть массив а из n чисел, к каждому числу массива жарасхан должен применять лишь одну операцию. есть три операции. 1 добавить к числу один 2 отнять от числа один 3 добавить к числу ноль к каждому элементу массива нужно применить одну из трех операции так, чтоб после применения операции ко всем элементам массива, количество одинаковых чисел в массиве стало максимальным. формат входных данных в первой строке входных данных дано одно целое число n-размер массива. во второй строке входных данных даны элементы массива а. формат выходных данных выведите одно целое число-максимальное количество одинаковых чисел в массиве после применения операций. система оценки данная имеет 4 : 1. 1 2. 1 3. 1 4. 1

Program b;

var a: array [1..10000] of real;

x: real;

n, i, j, k, m, max: integer;

begin

read (n);

for i:= 1 to n do read ([i]);

max:=0;

for i:=1 to n do

for k:=-1 to 1 do

begin x:=a[i]+k;

m:=0;

for j:=1+0 n do

if (a[j]-1=x) or (a[j]+0=x) or (a[j]+1=x) then m:m+1;

if m>max then max:=m;

end;

write (max);

end.  

1) program Array16;

var

i:integer; // счетчик в цикле

N:integer;

a: array [1..10] of integer;

begin

writeln('Введите N (N<10)');

readln(N); // ввод размера массива

for i:=1 to N do

begin

write('a[',i,']=');

readln(A[i]); // ручной ввод значений массива

end;

writeln('Результат');

for i:=1 to N do

begin

// вычисление и вывод элементов в указанном порядке

write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);

end;

end.

2) Var A:array[1..100] of integer;

i,n:byte;

Begin

write('Введите n<=100: ');readln(n);

For i:=1 to n do

Begin

A[i]:=random(31);

write(A[i]:3);

End;

writeln;

For i:=1 to n div 2 do

write(A[i]:3,A[n-i+1]:3);

if n mod 2 <>0 then write(A[n div 2+1]:3);

End.

program z1;

var k:integer;

begin

readln(k);

if k-10 > k/2 then write(k-10)

else write(k/2)

end.

Объяснение:

У Красной шапочки есть выбор кому давать взятку Лесничему или Волку.

Если она дает взятку Лесничему, то принесет бабушке на 10 пирожков меньше.

k - количество пирожков, которые испекла мама

k - 10 - количество пирожков, которые принесет бабушке Красная шапочка, если даст взятку Лесничему

Если она дает взятку Волку, то принесет бабушке половину пирожков .

k - количество пирожков, которые испекла мама

k / 10 - количество пирожков, которые принесет бабушке Красная шапочка, если даст взятку Волку

Задача - принести максимальное количество пирожков

Сравним k - 10 и k / 10 и решим кому давать взятку