Полные и не полные алгоритмы по 8 штук.

Var x,y,z: real;
      t: integer;
begin writeln('введите х и у');
          readln(x,y);
          z:=sqrt(sqr(x)-sqr(y));
          t:=0;
          while (z>0,1) do
          begin t:=t+1;
                    z:=0,98*z;    {если 2% от изменяющегося расстояния до пола;
                   если же имеется ввиду 2% от исходного расстояния,
                   то нужно будет ввести новую переменную
                   или присвоить исходное значение z, например х,
                   то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
                   Формула (оператор) z:=0,98*z;  изменится так:
                   z:=z-x*0,98}
           end;
          writeln('палка упадет через ', t,' мин.');
end.

program z1;

const n=20;

var m:array [1..n] of integer;

i,Sp,S2p,Sp1,Sp2,ko,k2,k1:integer;

P:real;

begin

P:=1;

ko:=0;

k2:=0;

k1:=0;

for i:=1 to n do

begin

m[i]:=random(21)-10;

if m[i] > 0 then Sp:=Sp+m[i];

if (m[i] > 0) and (m[i] mod 2 = 0) then S2p:=S2p+m[i];

if i <= n div 2 then Sp1:=Sp1+m[i] else Sp2:=Sp2+m[i];

if m[i] <> 0 then P:=P*m[i];

if m[i] < 0 then ko:=ko+1;

if m[i] mod 2 = 0 then k2:=k2+1 else k1:=k1+1;

write(m[i]:5)

end;

writeln;

writeln('Сумма положительных элементов: ',Sp);

writeln('Сумма четных положительных элементов: ',S2p);

writeln('Сумма элементов в 1 половине массива: ',Sp1);

writeln('Сумма элементов во 2 половине массива : ',Sp2);

writeln('Произведение ненулевых элементов: ',P);

writeln('Количество отрицательных элементов: ',ko);

writeln('Количество с четными значениями: ',k2);

writeln('Количество с нечетными значениями: ',k1)

end.

Объяснение:

картинка