Дан двумерный массив. найти: а) минимальную сумму элементов строки; б) максимальную сумму элементов столбца. обе решить двумя способами: 1) с использованием дополнительного одномерного массива; 2) без использования дополнительного одномерного массива.

/pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! 1. со массивом begin   var (n,m): =readinteger2('количество строк и столбцов в массиве: ');   var a: =matrrandom(n,m,-99,99);   writeln('*** исходный массив ***'); a.println(4);   writeln(4*a.colcount*'-');   var min: =integer.maxvalue;   var b: array of integer;   for var i: =1 to a.rowcount-1 do begin       b: =a.row(i); // строка в одномерном массиве       var s: =b.sum;       if s< min then min: =s;       end;   var max: =integer.minvalue;   for var j: =1 to a.colcount-1 do begin       b: =a.col(j); // колонка в одномерном массиве       var s: =b.sum;       if s> max then max: =s;       end;   writeln('минимальная сумма по строкам ',min);   writeln('максимальная сумма по колонкам ',max); end. пример количество строк и столбцов в массиве: 5 8 *** исходный массив ***   -89  16  35  74 -76  -3  -3 -25   54 -24  12  13  63 -60    4  92   74  82  12  12  -1  11 -29 -19   -72 -79  -3 -22  71 -53  57 -30   65 -25    2 -25  82 -73    4 -23 минимальная сумма по строкам -131 максимальная сумма по колонкам 139 2. без массива begin   var (n,m): =readinteger2('количество строк и столбцов в массиве: ');   var a: =matrrandom(n,m,-99,99);   writeln('*** исходный массив ***'); a.println(4);   writeln(4*a.colcount*'-');   writeln('минимальная сумма по строкам ',           a.rows.select(row-> row.sum).min);   writeln('максимальная сумма по колонкам ',           a.cols.select(col-> col.sum).max); end. пример количество строк и столбцов в массиве: 7 4 *** исходный массив ***   -44  32 -66 -71   56 -99  83  27   -30  39 -65 -95   -40    6  37  37   75  23 -86  80   -12  98 -65  28   47 -85  25  -6 минимальная сумма по строкам -151 максимальная сумма по колонкам 52

Кодяра ниже \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ #include < iostream> using namespace std; int minsumrow1(int ** const a, const int n, const int m) {   int sum = 0;   int *buff = new int[n];   for (size_t i = 0; i < n; ++i) {   buff[i] = 0;   for (size_t j = 0; j < m; ++j)     buff[i] += a[i][j];   }   sum = buff[0];   for (size_t i = 1; i < n; ++i)   if (sum > buff[i])     sum = buff[i];   return sum; } int minsumrow2(int ** const a, const int n, const int m) {   int sum, buff;   bool flag = true;   for (size_t i = 0; i < n; ++i) {   buff = 0;   for (size_t j = 0; j < m; ++j)     buff += a[i][j];   if (flag || buff < sum) {     flag = false; sum = buff;   }   }   return sum; } int maxsumcol1(int ** const a, const int n, const int m) {   int sum = 0;   int *buff = new int[m];   for (size_t j = 0; j < m; ++j) {   buff[j] = 0;   for (size_t i = 0; i < n; ++i)     buff[j] += a[i][j];   }   sum = buff[0];   for (size_t j = 1; j < m; ++j)   if (sum < buff[j]) sum = buff[j];   return sum; } int maxsumcol2(int ** const a, const int n, const int m) {   int sum, buff;   bool flag = true;   for (size_t j = 0; j < m; ++j) {   buff = 0;   for (size_t i = 0; i < n; ++i)     buff += a[i][j];   if (flag || buff > sum) {     flag = false;     sum = buff;   }   }   return sum; } int main() {   setlocale(lc_all, "russian");   const size_t n = 5, m = 6;   int **a = new int*[n];   cout < < "массив" < < endl;   for (size_t i = 0; i < n; ++i){   a[i] = new int[m];   for (size_t j = 0; j < m; ++j){     a[i][j] = 1 + rand() % 9;     cout < < a[i][j] < < " ";   }   cout < < endl;   }   cout < < endl;   cout < < minsumrow1(a, n, m) < < endl;   cout < < minsumrow2(a, n, m) < < endl;   cout < < maxsumcol1(a, n, m) < < endl;   cout < < maxsumcol2(a, n, m) < < endl;   system("pause");   return 0; } \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ кодяра выше

ха-ха-ха)) учебник по информатике за 10

там все

программа №4

program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

 

 

 

потхоньку буду дополнять, не так все быстро)) 

 

 

№5

 

 

program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.