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.