контрольная по информатике

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

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

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i] mod 2 = 0 then s: =s+a[i];

  writeln('сумма четных элементов =', s);

  readln

end.

var x,c: real;

begin

read(x);

c: =frac(c);

writeln(c: 1: 6);

readkey;

end. 

я буду писать часть предложения, а внизу табличку, чтобы понятнее было))

набрать 9 литров в первую ёмкость.

1. 9 л       2. 0л (пока что) 

перелить 5 литров во вторую ёмкость.

1.4 л       2. 5л

из второй ёмкости вылить всю воду

1.4л         2. 0л

и из первой ёмкости перелить во вторую ёмкость оставшиеся 4 литра.

1.0 л       2. 4л

набрать полную первую ёмкость

1. 9л     2. 4л

и из неё перелить во вторую 1 литр.

1. 8л     2. 5л

воду из второй емкости вылить

1.8 л     2. 0л

и из 8 литров воды в первой ёмкости перелить во вторую ёмкость 5 литров

1. 3л     2. 5л

вот и