Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1112
Language: C/C++
Code:
program zx;
 const n=5;
type TInd=1..n;
     TArr=array [TInd] of string;
var i:integer;
    s:string;
    z:TArr;
    d:TArr;
function f(x:string):string;
var j:integer;
begin
  for j:=1 to (length(x)) do
   if x[j]=' ' then delete(x,j,1);
  f:=x;
end;
begin
 write('Введите ',n,' строк');
 writeln;
  for i:=1 to n do
   begin
    write(i,': ');
    readln(z[i]);
   end;
  for i:=1 to n do
   begin
    s:=f(z[i]);
    d[i]:=s;
   end;
  for i:=1 to n do
   begin 
    write(i,': ',d[i]);
    writeln;
   end;
 readln;
end.     
Comments: