Question

Есть массив из 6 элементов символьного типа. Сосчитать количество символов «+». Если их больше 4, то заменить их на символ =. Напечатать весь массив

Answer 1

program HelloWorld;

var n:array [1..6] of string;

var i,k,j: smallint;

begin

   

    n[1] := '1+';

    n[2] := '2+';

    n[3] := '3+';

    n[4] := '4+';

    n[5] := '5+';

    n[6] := '6';

   

    k :=  0;

    for i:=1 to 6 do

      if pos('+',n[i]) > 0 then k := k + 1;

 

    if k>4 then

        for i:=1 to 6 do

        begin

           j := pos('+',n[i]);

           if j > 0 then

           begin

            delete(n[i],j,1);

            insert('=',n[i],j);

           end;

        end;

 

    for i:=1 to 6 do

      writeln(n[i]);

 

end.

Answer 2

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

begin
  var a:=new string[6];
  var k:=0;
  for var i:=0 to a.Length-1 do begin
    a[i]:=ReadlnString('Элемент '+(i+1)+': ');
    k+=a[i].Where(c->c='+').Count
    end;
  if k>4 then begin
    a.Transform(s->s.Replace('+','='));
    a.PrintLines
    end
end.

Пример
Элемент 1:  Это раз!
Элемент 2:  Это два ++
Элемент 3:  Это три!!!
Элемент 4:  Четыре четыре четыре
Элемент 5:  +пять+
Элемент 6:  ше+сть!!!
Это раз!
Это два ==
Это три!!!
Четыре четыре четыре
=пять=
ше=сть!!!