Напишите блок-схему по следующему условию: с клавиатуры ввести количество (n) и последовательность чисел, которым автоматически присваивается индекс а0, а1, …аn-1. найти количество четных чисел.

Блок-схема - в прилагаемом файле.

#include #include using namespace std; int main(){ int d,i,k=0; cin>>d; int a[d]; for(i=0;i>a[i]; } for(i=0;i

Как-то так
#include <iostream>
using namespace std;
int main(){    cout << "Vvedute kol-vo ocenok" << endl;
    int n,i,a,Four,Five;    n = i = a = Four = Five = 0;
    cin >> n;
    for (i = 1; i <= n; i++)    {        cin >> a;        if (a == 4){         Four++;}  else if (a == 5)      {         Five++;      }    }    if (Four > Five){   cout << "Four" << endl;} else if (Five > Four)      {   cout << "Five" << endl;      }      else      {         cout << "Equal"<< endl;      }      cout << "Kol-vo 4: " << Four << " Kol-vo 5: " << Five << endl;    return 0;}

uses CRT;

type mas=array[1..20,1..20] of integer;

var a,b,c,m,n,i,j,max,kol:integer;

    D:mas;

Begin

     clrscr;

     write ('Введите размер матрицы: ');

     readln (n);

     write ('Введите диапазон чисел: ');

     readln (a,b);

     Randomize;

     For i:=1 to n do

      Begin

        For j:=1 to n do

            Begin

                 D[i,j]:=random(b-a)+a;

                 write (D[i,j]:4);

            End;

            writeln;

     End;

     For i:=1 to n do

       For j:=1 to n do

           Begin

                If (D[i,j] mod 5)=0 then

                   If max<D[i,j] then

                      Begin

                           max:=D[i,j];

                      End;

           End;

     kol:=0;

     For i:=1 to n do

       For j:=1 to n do

           Begin

                If max<D[i,j] then

                   Begin

                        kol:=kol+1;

                   End;

           End;

     writeln ('Макс число кратное 5= ',max);

     writeln ('Количество чисел больших макс= ',kol);

 

readln;

End.