Определить индексы элементов вектора Z размерности 6 элементов, значения которых равны К или М. В C++ и сделать блок-схему​

Basic:
DIM tetradCount as INTEGER, oblojCount as INTEGER, price1 AS INTEGER, price2 AS INTEGER
CLS
INPUT "Введите кол-во тетрадей:"; tetradCount
INPUT "Введите кол-во обложек:"; oblojCount

price1 = tetradCount * 5
price2 = oblojCount * 3

PRINT "Стоимость тетрадей:"; price1
PRINT "Стоимость обложек:"; price2
PRINT "Общая стоимость:"; price1 + price2
END

C#:
Обычный класс, единственная директива препроцессора System, в методе main

int tetradCount, oblojCoubt, priceOne, priceTwo, priceSum;

Console.WriteLine("Введите кол-во тетрадей:");
tetradCount = int.Parse(Console.ReadLine());

Console.WriteLine("Введите кол-во обложек:");
oblojCount = int.Parse(Console.ReadLine());

priceOne = tetradCount * 5;
priceTwo = oblojCount * 3;
priceSum = priceOne + PriceTwo;

Console.WriteLine("Стоимость тетрадей: " + priceOne);
Console.WriteLine("Стоимость обложек: " + priceTwo);
Console.WriteLine("Общая стоимость: " + priceSum);

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a.Select(x->2*x).Println
end.

Тестовое решение
n= 10
-52 -23 48 -54 -72 -36 -87 -46 -21 54
-104 -46 96 -108 -144 -72 -174 -92 -42 108

Длинный "школьный" вариант
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
const
  nn=100;
var
  i,n:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(200)-100;
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n do Write(a[i]*2,' ');
  Writeln
end.