1. дана строка символов. напечатать новый текст, удалив из старого символы, находящиеся внутри круглых скобок. скобки тоже удалить. подсчитать количество удалённых символов. предполагается, что внутри каждой пары скобок других скобок нет 2. начертите блок-схему и напишите паскаль-программу для решения следующей : «ввести текст длиной до 254 символов. вывести на экран слова, начинающиеся с заглавной буквы. количество таких слов также вывести на экран». нужна полностью написанная программа

Var       s : string;       i : integer; begin     writeln('введите строку: ');     readln(s);       i: = 0;       while pos(')', s) < > 0 do    begin         i : = i + pos(')', s) - pos('(', s) + 1;         delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);     end;       writeln(s);       writeln(i);       readln; end.2)var        s     : string;         i, e : integer;         flag : boolean;   begin    writeln('введите строку: ');     readln(s);       e : = 0;       flag : = false;     for i : = 1 to length(s) do      begin            if (s[i] = upcase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then   flag : = true;             if flag then write(s[i]);             if (( s[i] = ' ' ) or ( i = length( and flag then            begin                 flag : = false;                 inc(e);                 writeln;             end;       end;     writeln(e);       readln; end.

Const   n = 10; var   a: array[1..n] of integer;   i, k, min, max: integer; begin   randomize;   min : = 100; max : = -100;   writeln('исходный массив');   for i : = 1 to n do   begin       k : = random(40) - 20;       a[i] : = n;       if max < k then max : = k       else if min > k then min : = k;       write(k, ' ')   end;   writeln;   writeln('min=', min, ', max=', max) end. тестовое решение: исходный массив -8 3 19 -14 19 13 -17 -2 8 8 min=-17, max=19 const   n = 10; var   a: array[1..n] of integer;   i, k, s: integer; begin   randomize;   s : = 0;   writeln('исходный массив');   for i : = 1 to n do   begin       k : = random(40) - 20;       a[i] : = n; s : = s + k;       write(k, ' ')   end;   writeln;   writeln('среднее арифметическое равно ', s / k) end. тестовое решение: исходный массив 19 11 -1 1 -4 -6 -2 18 3 8 среднее арифметическое равно 5.875

Var n,one,dec,hun,s: integer; begin writeln (' введи четырехзначное число'); readln (n); one: = n mod 10;                     ( находим цифру на месте единиц) dec: = ( n div 10) mod 10;               на   предпоследнем разряде hun: = ( n div 100) mod 10;           на третьем разряде с конца t: = n div 1000;                                 на первом разряде s: =one+dec+hun+t; if (s mod 2=0) or ( s mod 3=0 ) then writeln (' кратна 2 или 3)   else writeln (' не кратна'); end.