Информатика 9
*приведите примеры задач, при решении которых вслед за мысленной моделью сразу можно построить компьютерную модель.

*приведите примеры задач, при решении которых компьютерную модель невозможно построить сразу после мысленной модели.

#include <iostream>
using namespace std;
int main()
{
    int n, m, c;
    cout << "n = ";
    cin >> n;
    cout << "m = ";
    cin >> m;
    int a[n][m];
    for(int i = 0; i < n; i++)
    {
        cout << "Введите " << i + 1 << " рядок матрицы (" << m << " элементов) через пробел" << endl;
        for(int j = 0; j < m; j++)
        {
            cin >> a[i][j];
            if(a[i][j] % 2 == 1)
            {
                c++;
            }
        }
    }
    cout << "Количество нечетных элементов массива равно " << c;
}

#include <iostream>
using namespace std;
int main()
{
    int n, mi = 0, mj = 0, sum = 0;
    cout << "n = ";
    cin >> n;
    int a[n][n];
    for(int i = 0; i < n; i++)
    {
        cout << "Введите " << i + 1 << " рядок матрицы (" << n << " элементов) через пробел" << endl;
        for(int j = 0; j < n; j++)
        {
            cin >> a[i][j];
            if(a[i][j] < a[mi][mj])
            {
                mi = i;
                mj = j;
            }
        }
    }
    for (int j = 0; j < n; j++) 
   {
        sum += a[mi][j];
    }
    cout << "Сумма элементов рядка с минимальным элементом равна " << sum;
}

1. program Hello;

var i,j:integer; A:array [1..10, 1..10] of integer;

begin

 for i:=1 to 10 do for j:=1 to 10 do readln(A[i,j]);

 for i:=1 to 10 do for j:=1 to 10 do if A[i,j] mod 2 = 0 then writeln(A[i,j]);

end.

2. program Hello2;

var i,j,c:integer; A:array [1..3,1..3] of integer;

begin

c:=0;

 for i:=1 to 3 do for j:=1 to 10 do readln(A[i,j]);

 for i:=1 to 3 do for j:=1 to 10 do if A[i,j] mod 3 = 2 then c:=c+1;

 writeln(c);

end.

3. program Hello3;

var i,j,c:integer; A:array [1..3,1..3] of integer;

begin

c:=0;

 for i:=2 to 3 do for j:=1 to 10 do readln(A[i,j]);

 for i:=2 to 3 do for j:=1 to 10 do if A[i,j-1] + A[i,j] > 30 then c:=c+1;

 for i:=2 to 3 do for j:=1 to 10 do if A[i-1,j] + A[i,j] > 30 then c:=c+1;

end.

Подробнее - на - program Hello;

var i,j:integer; A:array [1..10, 1..10] of integer;

begin

 for i:=1 to 10 do for j:=1 to 10 do readln(A[i,j]);

 for i:=1 to 10 do for j:=1 to 10 do if A[i,j] mod 2 = 0 then writeln(A[i,j]);

end.

2. program Hello2;

var i,j,c:integer; A:array [1..3,1..3] of integer;

begin

c:=0;

 for i:=1 to 3 do for j:=1 to 10 do readln(A[i,j]);

 for i:=1 to 3 do for j:=1 to 10 do if A[i,j] mod 3 = 2 then c:=c+1;

 writeln(c);

end.

3. program Hello3;

var i,j,c:integer; A:array [1..3,1..3] of integer;

begin

c:=0;

 for i:=2 to 3 do for j:=1 to 10 do readln(A[i,j]);

 for i:=2 to 3 do for j:=1 to 10 do if A[i,j-1] + A[i,j] > 30 then c:=c+1;

 for i:=2 to 3 do for j:=1 to 10 do if A[i-1,j] + A[i,j] > 30 then c:=c+1;

end.

Подробнее - на -

Объяснение: