Var a, b: integer; procendure proc(var a: integer; b: integer) begin b: =4; а: =6; b: =а+b; end; begin a: =2; b: =3; proc(a, b); writeln(a,' ',b); end.

Прежде всего, код надо отформатировать и исправить имеющиеся в нем ошибки. а затем приступать к его рассмотрению. var   a, b: integer; procedure proc(var a: integer; b: integer); begin   b : = 4; a : = 6; b : = a + b end; begin   a : = 2; b : = 3;   proc(a, b);   writeln(a, ' ', b) end. описаны две целочисленные переменные a и b. им присваиваются значения 2 и 3 соответственно. затем следует вызов процедуры proc, в которую эти переменные в качестве параметров. на входе в proc получаем a=2, b=3. далее b получает значение 4, а получает значение 6 и затем b получает значение суммы a+b, т.е. 4+6=10. на этом работа процедуры завершается. поскольку параметр процедуры a имеет описатель var, то в основную программу вернется значение, которое a имело внутри процедуры (т.е. 6). значение b=10 действует только внутри процедуры и в основную программу не вернется. следовательно, в основной программа значение а поменяется на 6, а значение b сохранится прежним (3). в результате на выходе будет строка: 6 3

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

var

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

i: integer;

 

begin

 

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

 

end;