var pos,neg: integer; i,k,x: integer; ev,un: integer; a,b: array [1..n] of integer;
begin for i := 1 to n do read(a[i]); k := 0; pos := 0; neg := 0; for i := 1 to n do begin ev := 0; un := 0; x := a[i]; if x <> 0 then if x > 0 then if (x < pos) or (pos = 0) then pos := x else else if (x > neg) or (neg = 0) then neg := x; x := abs(x); while x <> 0 do begin if odd(x) then un := un + 1 else ev := ev + 1; x := x div 10 end; if un = ev then begin k := k + 1; b[k] := a[i] end end;
writeln(pos,' ',neg); for i := 1 to k do write(b[i],' ') end.
Const n=?; {Кол-во элементов в массиве, написать число вместо "?"} Var a,b:array[1..n] of integer; x,k,i,j:integer; Begin writeln('Init massive:'); for i:=1 to n do begin readln(x); {а лучше написать read(x); и вводить числа через пробел одной строкой, красивее будет} a[i]:=x; end; k:=n div 2; if (n mod 2)<>0 then k:=k+1; j:=1; for i:=(k+1) to n do begin b[j]:=a[i]; j:=j+1; end; if (n mod 2)<>0 then begin b[k]:=a[k]; k:=k-1; j:=j+1; end; for i:=1 to k do begin b[j]:=a[i]; j:=j+1; end; for i:=1 to n do write(b[i],' '); End.
a: array [1..5] of integer;
i, s: integer;
begin
for i := 1 to 5 do
readln(i);
for i := 1 to 5 do
if (a[i] mod 2 = 0) then
s := s + a[i];
end.