Напишите программу и блок схему для вычисления параллелограмма по стороне и высоте, проведённой к ней. 2. напишмте программу и блок-схему для вычисления факториала числа n, где n вводится с клавиатуры

, вася многое узнал про жизнь за границами дома. он узнал как живут бедные и нищие люди. от этого он смог понять и простить отца. вася понял что такое смерть (когда умирала маруся). он нашел настоящих друзей.

{1} const   n = 10; {количество чисел}   d = true; {true - для четных, false - для нечетных} var   a : array [1..n] of integer;   i : integer; begin   if d then     a[1] : = 2   else     a[1] : = 1;   write(a[1],' ');   for i : = 2 to n do     begin     a[i] : = a[i-1] + 2;     write(a[i],' ')     end end.{2}const  n = 16; var  a : array [1..n] of integer;   i : integer; begin  a[1] : = 2;   write(a[1],' ');   for i : = 2 to n do    begin    a[i] : = a[i-1] * 2;     write(a[i],' ')    endend.

Var   a, b: array[1..10] of integer;   i, min, max, sum: integer;   begin   min : = 10;   for i : = 1 to 10 do   begin       write('введите ',i,'-ый элемент первого массива  '); readln(a[i]);     write('введите ',i,'-ый элемент второго  массива  '); readln(b[i]);     if a[i] < min then min : = a[i];       if b[i] > max then max : = b[i];   end;   for i : = 1 to 10 do       write(a[i], ' ');   writeln;   for i : = 1 to 10 do       write(b[i], ' ');   writeln;     writeln('минимальное первого массива ', min);   writeln('максимальное первого массива ', max);   sum : = min + max;   for i : = 1 to 10 do       if (i mod 2) = 0 then           a[i] : = sum else b[i] : = sum;   for i : = 1 to 10 do       write(a[i], ' ');   writeln;   for i : = 1 to 10 do       write(b[i], ' '); end.