Pascal! 1. определить, как часто встречается определенный символ в строке 2. у леонида пантелеева в рассказе “буква «ты»” девочка иринушка думала, что буква “я” читается как “ты”. во входной строке записаны слова в произношении иринушки. замените неправильный слог “ты” на правильный слог “я”. 3. найти в строке определенную последовательность символов и заменить ее другой.

// pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите строку: ').tolower;   var c: =readlnchar('введите искомую букву: ').tolower;   writeln('буква встречается ',s.where(a-> a=c).count,' раз(а)') end. пример введите строку: а роза упала на лапу азора введите искомую букву: а буква встречается 8 раз(а) // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите фразу: ');   s.replace('ты','я').replace('ты','я').println end. пример введите фразу: тыков ест тыблоко яков ест яблоко // pascalabc.net 3.2, сборка 1370 от 24.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите строку: ');   var s1: =readlnstring('что найти? ');   var s2: =readlnstring('чем заменить? ');   s: =s.replace(s1,s2);   s.println; end. пример введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить? что найти? мама чем заменить? папа папа, папа, что я буду делать, папа, папа, как я буду жить?

const n = 100;

m = 100;

var a: array[1..n,1..m] of integer;

max,i,j,s: integer;

begin

    randomize;

    for i : = 1 to n do begin

        s : = 0;

          for j : = 1 to m do begin

            s : = s + a[i,j];

        end;

        write('summa elementov stroki ', i);

        writeln(' ravna ', s);

    end;

    max : = 1;

      for i : = 1 to m do begin

        if (a[2,i] > a[2,max]) then max : = i;

    end;

    writeln('max element 2 stroki raven', a[max]);

end.