Составить блок- схему Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;

j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.

#include <iostream>

using namespace std;

int main () {

   int n;

   cin >> n;

   if (n==0) {

       cout << "0  0" << endl << 1 << endl << 1 << endl;

       return 0;

   }

   int mx=0; int mn=10; int mxi=10; int mnk=0; int ind=0;

   while (n>0) {

       int c=n%10;

       n/=10;

       if (c>=mx) {

           mx=c;

           mxi=ind;

       }

       if (c<mn) {

           mn=c;

           mnk=1;

       } else if (c==mn) {

           ++mnk;

           ++ind;

       }

   }

   cout << mx << " " << mn << endl << (ind - mxi) << endl << mnk << endl;

   return 0;

}

Объяснение:

Посібник призначений для практичного опанування програмування із

застосуванням мови Python. Він охоплює основні розділи структурного

програмування, що викладаються у вищих навчальних закладах для студентів

математичних, природничих та інженерних спеціальностей.

У посібнику у систематизованому вигляді наводяться короткі теоретичні

відомості, типові приклади розв'язання задач і задачі для самостійної роботи.

Посібник складено з урахуванням досвіду викладання програмування на

механіко-математичному факультеті Київського національного університету імені

Тараса Шевченка.

Для студентів молодших курсів університетів та викладачів, що проводять

практичні заняття з програмування