Var
i, min, n, d: integer;
begin
readln(n);
min:=30000;
for i := 1 to n do
begin
readln(d);
if (d mod 2 = 0) and (min>d) then
min:=d
end;
writeln(min);
end.
Код скопировать и вставить не получается прога на ipad'е дерьмовая. Никогда не писал раньше на Паскале(c,c++,c# ,basic, html, Php, JavaScript только ), но должно быть так.
Type mas=Array [1...100] of integer;
var i,n,itre:integer;
a:mas;
begin
readln(n);
for i:=1 to n
do read(A[i]);
for i:=2 to n-1
do if (A[i]>A[i-1]) and (A[i]>A[i+1])
then itre:=i;
for i:=1 to itre-2
do writeln(A[i]);
end.
N=64
I=6 бит
i=I×k
k=100символов
i=100×6=600 бит