Создать развивающийся флаг россии в qb64

#include "stdafx.h"

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

srand(time(0));

int n, m, k;

cout << "N = ";

cin >> n;

cout << "M = ";

cin >> m;

cout << "K = ";

cin >> k;

int A[100][100];

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

{

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

 {

  A[i][j] = 1 + rand() % 10; // от 1 до 10

 }

}

cout << endl;

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

{

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

 {

  cout << A[i][j] << " ";

 }

 cout << endl;

}

int temp = 0;

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

{

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

 {

  if (A[i][j] == k)

   temp++;

 }

}

cout << temp << endl;

system("pause");

   return 0;

}

Я вот тоже Вышел порешать =).

var p: array [1..1000] of record

slovo:string;

k:integer;

end;

N,i,j,max:integer;

c:char;

a:array [97..122] of integer;

BEGIN

max:=0;

readln(N);

for i:=1 to N do

begin

p[i].slovo:='';

repeat

read(c);

p[i].slovo:=p[i].slovo+c

until c=' ';

readln(p[i].k);

for j:=1 to length(p[i].slovo) do

if (ord(p[i].slovo[j])>=97) and (ord(p[i].slovo[j])<=122) then

a[ord(p[i].slovo[j])]:=a[ord(p[i].slovo[j])]+p[i].k;

end;

for j:=97 to 122 do

if a[j]>max then

max:=a[j];

write(max);

end.