Фрагмент программы вначале помещает в переменную m значение элемента массива a[4]=7. Далее в цикле просматриваются элементы массива с номерами от 3 до 6 и сравниваются с текущим значением m. В случае, если значение m окажется меньше очередного элемента, значение этого элемента заносится в m. Легко видеть, что это алгоритм нахождения максимума среди элементов a[3]..a[6]. На выводе будет значение m=12.
<em>Ответ:12</em>
<em>var i,k,x:integer;
</em>
<em>begin
</em>
<em>i:=0;
</em>
<em>x:=1;
</em>
<em>while x<>0 do
</em>
<em>begin
</em>
<em>read(x);
</em>
<em>if (x mod 5=0)and(x<>0) then k:=k+1;
</em>
<em>end;
</em>
<em>writeln('Количество чисел кратных 5= ',k);
</em>
<em>end. </em>
1. 16 * 40 * 64 = 40960 символов. Т.к. 1 байт на символ, то 40960 байт = 40 Кбайт