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

• #5320 artiny őstag fatal` #5319

  Új Válasz 2011-07-30 10:33:28 #5320

  Ú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` #5319 üzenetére

  145.) próbalgattam...így sikerült.
  Talán megcsináltam....kiírta,hogy a[1] 2; a[2] 3;....a[10] 1.
  jól írtam le? (ahogy te mondtad a végét nem tudtam megcsinálni)

  program ciklikusvektor;
  uses crt;
  var i,elem:integer;
  a:array[1..10] of integer;
  
  
  procedure feltoltes;
  begin
  for i:=1 to 10 do
  begin
  a[i]:=i;
  writeln('a[',i,'] ',i);
  end;
  
  writeln;
  a[10]:=a[1];
  
  for i:=1 to 9 do
  begin
  a[i]:=i;
  writeln('a[',i,'] ',i+1);
  end;
  writeln('a[10] ',a[10]);
  end;
  
  
  BEGIN
  clrscr;
  feltoltes;
  readln;
  END.

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