В строковом массиве из 9 слов заменить слова из 3 букв на пробел

Question

В строковом массиве из 9 слов заменить слова из 3 букв на пробел

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var ars:array[1..9] of integer; i:integer; Begin for i:=1 to 9 do Begin read(ars[i]); if length(ars[i])=3 then ars[i]:=' '; end; Writeln('Final array:'); For i:=1 to 9 do writeln(ars[i]); End.