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

• #2215 [HUN]Zolee őstag zvaragabor #2214

  Új Válasz 2008-04-28 20:55:24 #2215

  Ú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

  

  [HUN]Zolee

  őstag

  válasz zvaragabor #2214 üzenetére

  Nagyából megcsináltam, de nem biztos hogy hibátlan . Ha teszel fel konkrét kérdést arra is választ kaphatsz. Üdv.

  program osztaly;
  
  uses wincrt;
  
  var vektor:array[1..10] of integer;
  aktual,i,feletti: integer;
  atlag : double;
  
  begin
  clrscr;
  
  write('Kérem az aktuális évszámot :');
  readln(aktual);
  
  writeln('Kérem a tíz tanuló születési évét: ');
  for i:=1 to 10 do
  
  readln(vektor[i]);
  
  
  feletti:=0;
  atlag:=0;
  for i:=1 to 10 do
  begin
  
  if (aktual-vektor[i]>=18) then (vektor[i]=feletti) feletti:=feletti+1;
  atlag:=atlag+vektor[i];
  end;
  atlag:=atlag/10
  writeln("18 ev felettiek szama:",feletti);
  writeln("atlageletrko:",atlag:2:0);
  
  end.

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