Треугольник Паскаля. Даны два числа n и m. Создайте массив n×m и заполните его по следующим правилам: Числа, стоящие в строке 0 или в столбце 0 равны 1 (A[0][j] = 1, A[i][0] = 1). Для всех остальных элементов массива A[i][j] = A[i-1][j] + A[i][j-1], то есть каждый элемент равен сумме двух элементов, стоящих слева и сверху от него.

а) 400 * 2,5 = 1000 кб

б) 64 : 2,5 = 25,6 = 25 страниц

в) нужен   диск - cd-r или cd-rw

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

сред. арифметическое = сумма всех чисел разделить на количество

(a1 + a2 + a3 + a4 + a5) / 5

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.