Составить свой рисунок и написать алгоритм. §18 л.л. босова. 6 класс. много .

Var p, q: longint;   n, i, j, c: integer; begin    // 1   write('n='); readln(n);   for i : = 1 to n do begin     q : = 1;     for j : = 1 to i do q : = q * i;     p : = p + q;   end;   writeln ('значение = ', p);       // 2   write('число годовых оценок='); readln(n);   p: =0;   for i : = 1 to n do begin     write('оценка: '); readln(c);     if c = 5 then p : = p + 1     else if c = 2 then p : = - 1;   end;   writeln(p > 0);       // 3   n : = 20; p : = maxint;   for i : = 1 to n do begin     write('введите высоту здания ', i, ': ');     readln(c);     if c < p then p : = c;   end;   writeln('минимальная высота: ', p);       //4   n : = 20; p : = -1;   for i : = 1 to n do begin     write('введите высоту здания ', i, ': ');     readln(c);     if c > p then p : = c;   end;   writeln('максимальное значение высоты: ', p); end.

Var    a: array of integer;   i, n: integer; begin   randomize;   n : = random(10) + 1;   setlength(a, n);   writeln('исходный массив');   for i : = 0 to n-1 do begin     a[i] : = random(10);     write(a[i]: 5, ' ');   end; writeln;       writeln('возвести в квадрат');   for i : = 0 to n-1 do begin     a[i] : = sqr(a[i]);     write (a[i]: 5, ' ');   end; writeln;       writeln('заполнить степенями 2');   a[n-1] : = 1;   for i : = n-2 downto 0 do     a[i] : = a[i+1] shl 1;         for i : = 0 to n-1 do write (a[i]: 5, ' ');   writeln;       writeln ('умножить на 3 во второй половине');   for i : = n shr 1 to n-1 do     a[i] : = (a[i] shl 1) + a[i];         for i : = 0 to n-1 do write (a[i]: 5, ' ');   writeln; end.