Ресурси Веб 2.0 використовуються для створення ... Виберіть одну або декілька відповідей:
презентацій
флеш-проектів
макетів

Const
 n = 20;

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.

Кое что убрал - работает, только свои данные введи (фамилия и т.д.)

uses graphabc;var s,f,i,o: string;    j: byte;    pic: integer;begin
s:='AVALON';f:='FAMILY';i:='name';o:='second name';
setfontcolor(clred);setwindowsize(550,250);setfontsize(20);setfontstyle(fsbold);for j:=1 to length(s) do    textout(10,(j*40)-40,s[j]);setpencolor(clred);setbrushcolor(clred);rectangle(30,120,550,125);setfontcolor(clblue);setbrushcolor(clwhite);setfontname('Tahoma');setfontsize(16);SetFontStyle(fsnormal);textout(300,10,f);SetFontStyle(fsItalic);textout(300,50,i);textout(300,90,o);setpenwidth(6);for j:=1 to 10 do    arc(500+(j*30),420,300,0,180);setfontname('Times');setfontsize(26);textout(40,150,'Something for good');end.