Balatech asia 96 уровень

решение: наливаем в 5-вую и из нее в 3-вую, в ней осталось 2 литра. из 3-ой выливаем все обратно, оставшиеся 2 литра выливаем в 3-вую. затем наполняем 5-вую и из нее отливаем 1 литр в 3-вую, итак в 5-литрой 4 литра

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;

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

самым главным считается объем