Решить в паскале дан двумерный массив. найти сумму и количество положительных элементов, лежащих выше главной диагонали.

var a: array [1..100,1..100] of integer; i,j,s,sn,n,m: integer; begin      read(n,m);       for i: = 1 to n do            for j: = 1 to m do begin                  read(a[i,j]);                   if (j> i) and (a[i,j]> 0) then begin                        sn: =sn+1;                         s: =s+a[i,j];                   end;             end;       writeln(s,sn); end.

#include <iostream>

using namespace std;

int main()

{

   const int N = 5;

   const int M = 3;

   int matrix[N][M];

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

   {

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

       {

           matrix[i][j] = rand() % 10;

           cout << matrix[i][j] << "\t";

       }

       cout << endl;

   }

   int min = matrix[0][1];

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

   {

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

           if((j + 1) % 2 == 0)

           {

               if(matrix[i][j] < min)

                   min = matrix[i][j];

           }

   }

   cout << "\n" << min;

   return 0;

}

program pr1; uses crt; var stroka,stroka1: string; i,b,c,a: integer; mas: array['a'..'я'] of integer; r: char; beginclrscr; readln(stroka); readln(stroka1); b: =length(stroka); c: =length(stroka1); if b> c then begin for i: =1 to c do for a: =1 to b do if stroka[a]=stroka1[i] then mas[stroka1[i]]: =mas[stroka1[i]]+1; endelse begin for i: =1 to b do for a: =1 to c do if stroka1[a]=stroka[i] then mas[stroka[i]]: =mas[stroka[i]]+1; end; for r: ='a' to 'я' do if mas[r]> 0 then writeln(r,' ',mas[r]); end.