Решить шифровки и дешифровки по следующему принципу: за каждой буквой данной фразы стоит случайная гласная( их 9 - у, е, ы, а, о, э, я, и, ю), затем случайная согласная ( их 20 - ц, к, н, г, ш, щ, з, х, ф, в, п, р, л, д, ж, ч, с, м, т, б), затем случайная ни та, ни другая ( их 3 - ъ, ь, й) и т.д. с data без массивов. программа создаётся через язык программирования qbasic.

Программа шифровки:
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
   t = t + MID$(s, i, 1)
   t = t + MID$(s10, INT(10 * RND + 1), 1)
   t = t + MID$(s20, INT(20 * RND + 1), 1)
   t = t + MID$(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END

Программа дешифровки:
DIM s AS STRING, t AS STRING, i AS INTEGER
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
   t = t + MID$(s, i, 1)
NEXT i
PRINT t
END

c++

Объяснение:

#include <iostream>

using namespace std;

const int m = 6;

const int n = 4;

int main() {

   int a[m][n];

   /*Ввод массива*/

   for(int i = 0;i < m;i++) {

       for(int j = 0;j < n;j++) {

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

           cin >> a[i][j];

       }

   }

   

   int sum = 0;

   int mult = 1;

   

   for(int i = 0;i < m;i++) {

       for(int j = 0;j < n;j++) {

           sum += a[i][j];

           mult *= a[i][j];

       }

   }

   

   cout << "Sum = " << sum << endl << "Mult = " << mult;

}

var

  number, N, npol, notr, n0, i: integer;  {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

 

begin

  writeln('Введите N');

  readln(N);

  for i:= 1 to N do

  begin

    writeln('Введите целое число');

    readln(number);

    if number < 0 then notr:= notr + 1;

    if number > 0 then npol:= npol + 1;

    if number = 0 then n0:= n0 + 1;

  end;

  writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.