Program pr1; var a: array[1..9] of string; i: integer; begin writeLn('заполните массив слов'); for i := 1 to 9 do readLn(a[i]); for i := 1 to 9 do if length(a[i]) = 3 then a[i] := ' '; writeLn('обработанный массив'); for i := 1 to 9 do writeLn(a[i]); end.
var a: array[1..9] of string; i: integer;
begin
writeLn('заполните массив слов');
for i := 1 to 9 do
readLn(a[i]);
for i := 1 to 9 do
if length(a[i]) = 3 then
a[i] := ' ';
writeLn('обработанный массив');
for i := 1 to 9 do
writeLn(a[i]);
end.