В строковом массиве из 9 слов заменить слова из 3 букв на пробел
Varars:array[1..9] of integer;i:integer;Beginfor i:=1 to 9 doBeginread(ars[i]);if length(ars[i])=3 then ars[i]:= ;end;Writeln(Final array:);For i:=1 to 9 dowriteln(ars[i]);End.
Оцени ответ
