На вход программы подаются 5 целых чисел. Составьте блок-схему и напишите программу, которая подсчитывает и выводит на экран сумму и произведение этих чисел. Если трудно выполнить оба расчета в одной программе, разрешаю дать мне две отдельные программы – одна с суммой, другая – с произведением.

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу

смотри схему                                                  

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;