Új hozzászólás Aktív témák

• #5324 artiny őstag fatal` #5323

  Új Válasz 2011-07-31 13:22:29 #5324

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  artiny

  őstag

  válasz fatal` #5323 üzenetére

  Hunfaltal: így jó lessz?

  program ciklusvektor;
  uses crt;
  var i:integer;
  a:array[1..10] of integer;
  b:array[1..10] of integer;
  
  procedure feltoltes;
  begin
  for i:=1 to 10 do
  begin
  a[i]:=i;
  write('a[',i,'] ',a[i],' ');
  end;
  end;
  
  procedure pakol;
  begin
  for i:=1 to 10 do
  begin
  b[i]:=a[i*1];
  write('b[',i,'] ',b[i],' ');
  end;
  end;
  
  
  procedure csere;
  begin
  b[10] := a[1];
  for i :=1 to 9 do
  begin
  b[i]:= a[i+1];
  end;
  end;
  
  procedure kiiras;
  begin
  for i:=1 to 10 do
  begin
  writeln('b[',i,'] ',b[i]);
  end;
  end;
  
  
  BEGIN
  Clrscr;
  feltoltes;
  writeln;
  pakol;
  csere;
  writeln;
  kiiras;
  readln;
  END.

Új hozzászólás Aktív témák