Внимание! строки вводятся как на , так и на языке. ввод строк и текста осуществляется с консоли.
дан текст. заменить каждую букву перед буквой а символом ‘*’.
(написать программу на языке c++)

Программа шифровки:
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

// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.

var a: array [1..10] of real; // возьмем массив из 10 чисел
    i,x      :byte;
begin
  randomize;
  for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
  begin
    a[i]:=random(1000);
    writeln (i,' элемент исходного массива ',a[i]);
  end;
  writeln ();
  for i:=1 to 10 do
  begin
      x:=i mod 2; //определяем четный или нет элемент массива
      if x=0 then //если элемент четный
        begin
          a[i]:=a[i]/2;
          writeln (i,' элемент массива  - четный   ',a[i]);
        end
         else      //если элемент нечетный
        begin
          a[i]:=a[i]*2;
          writeln (i,' элемент массива  - нечетный ',a[i]);
        end;
  end;
end.