Задан двумерный массив в из 4-х строк и 5-и столбцов. составить программу, которая организует одномерный массив, каждый элемент которого есть сумма элементов в столбце. вычислить произведение элементов полученного массива

program tables;

type vector=array[1..4,1..5] of real;         vector2=array[1..4] of real; var i,j: integer; s: real; a: vector; b: vector2; begin  for i: =1 to 4 do    for j: =1 to 5 do    a[i,j]: =j; {value of each celule}  for i: =1 to 4 do      for j: =1 to 5 do        if j=5 then            begin                b[i]: =s; s: =0;             end else s: =s+a[i,j];   for i: =1 to 4 do write(b[i]: 0: 2,' '); readln; end.

на c++

 

#include < iostream> using std: : cout;

using std: : cin; using std: : endl; #include < cstdlib> using std: : rand; using std: : srand; #include < ctime> using std: : time; int main(){    int b[4][5];     int sum[5] = { 0 };     long product = 1;     srand(time(0));     //инициализировать массива значениями от 0 до 9 и вывести таблицу на экран    for(int i = 0; i < 4; i++)    {          for(int j = 0; j < 5; j++)          {                b[i][j] = rand() % 10;                 cout < < b[i][j] < < ' ';           }          cout < < endl;     }    cout < < endl;     //записать в одномерный массив сумму эллементов столбца    for(int i = 0; i < 5; i++)    {          for(int j = 0; j < 4; j++)          {                sum[i] += b[j][i];           }    }

    //вывести на экран значения одномерного массива    for(int i = 0; i < 5; i++)    {          cout < < sum[i] < < ' ';     }        //вычесление произведения(умножения)    for(int i = 0; i < 5; i++)    {          product *= sum[i];     }    cout < < "\n\nproduct = " < < product < < endl;

 

    cin.get();     return 0; }

язык c++. в памяти несколько косячно хранятся вещественные числа, поэтому пришлось сделать следующие параметры в цикле.

#include

#include

float f(float x) {

return 2*acosf(x/2)+x*logf(tanf(x/2));

}

void main() {

float y[10];

float a, b;

float summ=0;

int c = 0;

for (float i = 0.1; i < 2; i+=0.2)

  y[c++] = f(i);

printf_s("a,b - ? ");

scanf_s("%f", & a);

scanf_s("%f", & b);

for (int i = 0; i < 10; i++)

  if (a< = y[i] & & y[i] < =b)

  summ += y[i];

printf_s("summ: %f",summ);

}

Var       f, f1, f2: longint;       n: integer; begin       f2 : = 1;       f1 : = 2;       n : = 2;             repeat               f : = f1 + f2;               n : = n + 1;               writeln(n,' - ',f);               f2 : = f1;               f1 : = f;       until f > = 1000000;             writeln(n - 1); end.