1) Используется оператор
for i:= 5 to 36 do…
При первом выполнении тела цикла i = ...
ответ:_
2) Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже
последовательности операторов:
a:=1;
b:=1;
while a>=b do
begin
b:=b+a;
a:=a+1
end;
write(b*a)
а) 20
б) 4
в) 1
г) 15
д) 12

1) 5

2) 12

a = 1;  b = 1;

a >= b ? ДА

a = 2;  b = 2;

a >= b ? ДА

a = 3  b = 4;

a >= b ? НЕТ

b * a = 4 * 3 = 12

program xxx;

    var i, k : integer;

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

begin

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

  for i: =1 to 10 do

        readln(a[i]);

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

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.