Яка послідовність створення нових полів визначення типів даних у поданні конструктор???

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

1) (60-10): 2=25 (мин.) - потратила сегодня

2) 25+10=35 (мин.)

ответ: вчера катя выполнила по за 35 минут.

(1010,01)16=1*16^3+0*16^2+1*16+0+0*16^(-1)+1*16^(-2)=4112,00390625

(f001)16= 15*16^3+1=61441

картинка длжна быть в папке с программой и быть в формате bmp

uses graphabc;

var b: picture;

beginb : = picture.create('banner.bmp'); b.load(n); b.draw(200, 200); end.