ребята ! СОЧ очень надо

Программа:

{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

const

 start = -100;

 finish = 50;

 count = 100;

var

 X : array of integer; {массив}

 i : integer; {Счётчик цикла}

 S : integer; {Сумма положительных}

begin

Randomize;

SetLength(X, count+1);

{Генерация массива из 100 элементов от -50 до 50}

for i := 1 to count do

 X[i] := Round( Random * start) + finish;

{Вывод сгенерированного массива на экран}

for i := 1 to count do

 write(X[i]:4);

writeln; writeln;

{Подсчёт положительных элементов}

S := 0;

for i := 1 to count do

 if (x[i] > 0) then

  S := S + x[i];

writeln('Сумма положительных S = ', S);

end.

о повезло повезло, пару минут назад эту же задачу решил :

#include <iostream>

#include <vector>

using namespace std;

void make_matrix(vector<vector<int>> &v){

   int n = v.size(), m = v.front().size(), cur = 0;

   for(int i = 0; i < m; i++){

       for(int j = 0; j < n; j++){

           v[j][i] = cur;

           cur++;

       }

   }

}

void print_matrix(vector<vector<int>> &v){

   int n = v.size(), m = v.front().size();

   for(int i = 0; i < n; i++){

       for(int j = 0; j < m; j++)

           cout << v[i][j] << " ";

       cout << "\n";

   }

}

signed main(){

   int n, m;

   cin >> n >> m;

   vector<vector<int>> a(n, vector<int> (m));

   make_matrix(a);

   print_matrix(a);

}