Дан массив из 30 целых положительных чисел. подсчитать количество элементов массива кратных 6 и не заканчивающихся на 4. если таких элементов в массиве нет, то сообщить «нет», 20

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(30,-99,99); a.Println;
  var k:=a.Where(t->(t mod 6=0) and (t mod 10<>4)).Count;
  if k=0 then Writeln('Нет') else Writeln('Найдено элементов: ',k)
end.

Пример
-32 -46 -99 97 63 40 -3 -89 31 -43 69 32 -66 -66 -59 98 -88 -41 -30 19 69 -83 -88 0 12 -87 -53 82 59 53
Найдено элементов: 5

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Текст:');
  var c:=ReadlnChar('Буква:');
  Writeln('Буква встречается ',s.Where(p->p=c).Count,' раз(а)')
end.

Пример
Текст: а роза упала на лапу азора
Буква: а
Буква встречается 8 раз(а)

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Текст:');
  var m:=s.MatchValues('(\w)\1{1}').Distinct;
  foreach var cc in m do s:=s.Replace(cc,cc[1]);
  s.Println
end.

Пример
Текст: стеклянный оловянный длинношеее искусство
стекляный оловяный длиношее искуство

Во-первых в начале НЕ сin << sys, а сin >> s;

Во-вторых ты объявил/а все переменные в первом ифе, а значит в других функциях они уже не видны, поэтому стоит их объявить глобально

В-третьих переменная g не используется, поэтому можно ее и не объявлять

Вот код:

#include <iostream>

#include <cmath>

using namespace std;

int main() {

   int sys;

   float a, b, c, d, e, sum, mid, pi=3.14, r;

   cout << "if you would midle write-1, if place of circle-2" << endl;

   cin >> sys;

   if(sys == 1) {

       cout << "input first midle" << endl;

       cin >> a;

       cout << "inpur second midle" << endl;

       cin >> b;

       cout << "input third midle" << endl;

       cin >> c;

       cout << "input thord midle" << endl;

       cin >> d;

       cout << "input fived midle" << endl;

       cin >> e;

       sum = a + b + c + d + e;

       mid = sum / 5;

       cout << "your midle: ";

       cout << mid;

   }

   else{

       if(sys == 2) {

           cout << "this is the circle area formula S=pi*r^2" << endl;

           cout << "input radius(r)" << endl;

           cin >> r;

           cout << pi * r * r;

       }

   }

   return 0;

}