Синформатикой

1) из 5 натуральных чисел, вводимых пользователем найдите сумму чисел больше 30

2) из 5 натуральных чисел найдите среднее арифметическое двухзначных чисел

3) найдите сумму цифр этих 5 натуральных чисел

Rem BASIC-256
cls
errors = 0
print "Введите текст > ";

rem Пользователь вводит текст
input a$

rem Перебираем все буквы с начала и до предпоследней
for i=1 to length(a$)-1

rem Если встречаем букву Ч или Щ
if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then

rem Тогда проверяем следующую за ней букву.
rem Если это буква я, тогда подсчитываем очередную ошибку
if mid(a$, i + 1, 1) = "я" then errors = errors + 1
end if

rem Переходим к следующей букве
next i

rem Вывод результата
print "Количество ошибок в тексте ";
print errors

rem Конец программы
end

Const
  n=10;
var
  a:array[1..n] of integer;
  i,kp,sn: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  kp:=0; sn:=0;
  for i:=1 to n do
  begin
    a[i]:= Random(31)-10;
    Write(a[i]:4);
    if a[i]>0 then Inc(kp);
    if (i mod 2)<>0 then sn:=sn+a[i]
  end;
  Writeln;
  Writeln('Количество положительных элементов: ',kp);
  Writeln('Сумма элементов на нечетных местах: ',sn);
  Writeln('Элементы массива после замены');
  for i:=1 to n do
  begin
    if a[i]<10 then a[i]:=10;
    Write(a[i]:4)
  end;
  Writeln
end.

Тестовое решение:
Элементы массива
  10  11  -4  11  12  13  -1  -2  -8   7
Количество положительных элементов: 6
Сумма элементов на нечетных местах: 9
Элементы массива после замены
  10  11  10  11  12  13  10  10  10  10