Program morebrains;
const
n = 12; {Количество элементов массива}
var
F:array[1..n] of integer;
s:string;
i,sum:integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{заполняем массив}
writeln;
for i:=1 to n do F[i]:=i*i-5*i-14;
{Ищем сумму положительных}
sum:=0;
for i:=1 to n do
if F[i]>0 then sum:=sum+F[i];
{Выводим сумму}
writeln;
writeln('Сумма положительных элементов равна ',sum);
end.
Const
N = 30;
Var
a: array [1..N] of integer;
MaxEv, MaxOdd, I: integer;
begin
for i := 1 to N do
begin
write('a[', i , '] = ');
readln(a[i]);
end;
MaxEv := 0;
MaxOdd := 0;
For I := 1 to N do { перебираем все элементы массива}
if a[i] mod 2 = 0 then { проверяем делится ли текущий элемент на 2 без остатка}
begin
if a[i] > MaxEv then {если да, то проверяем больше ли найденного до этого наибольшего четного}
MaxEv := a[i]; {присваиваем новое наибольшее четное значение}
end
else
if a[i] > MaxOdd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного}
MaxOdd := a[i]; {присваиваем новое наибольшее нечетное значение}
Writeln ('MaxEv - MaxOdd = ', MaxEv, ' - ', MaxOdd, ' = ', MaxEv - MaxOdd);
end.
1. На экран выведется число 17
2. На экран выведется число 25
3. На экран выведется число 27
(C#)
N=Console.Read();
Console.Write(N);
N=N-2//на случай если N=2 или 1
while(N>3)
{
N=N-2
Console.Write(N);
}