умоляю вас
1 задание
Укажи, какой из эффектов перехода к 3-му слайду установлен в данной презентации!

Случайные вертикальные полосы
Уголки вправо-вниз
Шашки вертикальные
Новости
Прямоугольник внутрь
Объединение по горизонтали
Вертикальная панорама наружу
2 задание
Выбери правильную команду.

Дизайн (тему) презентации можно выбрать во вкладке , в группе ;
Дизайн презентации можно менять всё время.

Выбранный дизайн применяется ко всем слайдам сразу. Если есть необходимость применить выбранный дизайн только к предварительно выделенным слайдам, тогда надо:
- выбрать вкладку Дизайн;
- нажать левой кнопкой мышки на понравившемся дизайне и выбрать команду .

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]> 0 then s: =s+a[i];

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

  readln

end.

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

см схему на стр 15, № 34                                                  

var v1,v2,t,t1: real;

begin

  read(v1,v2,t,t1);

  writeln(v1*(t+t1)< =v2*t1);

end.