Program maximal;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,max:integer;
begin
readln(N);
max:=0;
for i:=1 to N do
begin
read(a[i]);
if max<a[i] then
max:=a[i];
end;
write(max);
end.
2) Program B;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,z:integer;
begin
readln(N);
z:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i]>0 then
write(a[i],' ');
if a[i]=0 then
z:=z+1;
end;
writeln();
for i:=1 to N do
begin
if a[i]<0 then
write(a[i],' ');
end;
writeln();
for i:=1 to z do
write('0',' ')
end.
Поскольку «БРА» у нас слово нечётное, то будет необходимо удалить первый символ цепочки. Мы получим остаток «РА»;
Теперь согласно условиям задачи заменяем буквы «Р» и «А» на буквы, следующие за ними в русском алфавите. Это будут буквы «С» и «Б» = СБ;
Теперь вновь применяем алгоритм задачи (нам сказано применить его дважды). Поскольку «СБ» слово чётное, то в середину нашей цепочки согласно условиям задачи добавляем «А». Получаем САБ;
Теперь меняем буквы «С» «А» «Б» на буквы, следующие за ними в русском алфавите. Это будет цепочка «ТБВ». Данная цепочка и будет правильным ответом.
Function func_y(x As Double) As Double
func_y = Fix((2 - Sgn(x)) / 2) * (5 * x + 1) + Fix((1 + Sgn(x)) / 2) * x ^ 3
End Function
Excel VBA