7. Что производит следующий фрагмент программы?
K:=0;
FOR I:=1 TO N DO
IF A[I]<0 THEN K:=K+1;
WRITELN(K=`,K);
a. Находит максимальный и минимальный элементы и печатает на экране
b. Находит максимальный элемент и печатает на экране
c. Находит минимальный элемент и печатает на экране
d. Находит сумму отрицательных элементов и печатает на экране
e. Находит количество отрицательных элементов и печатает на экране

папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали  из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.

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;

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.