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

• #2214 zvaragabor senior tag

  Új Válasz 2008-04-28 20:38:03 #2214

  Ú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

  

  zvaragabor

  senior tag

  Üdv. Holnapra kellene házit csinálnom. Bekérem az aktuál évszámot, majd tömbbe bekérek 10 tanuló születési évszámát. Ki meg hogy hány 18 fölötti van, és az átlag életkort. Itt tartok:

  program osztaly;
  
  uses wincrt;
  
  var vektor:array[1..10] of integer;
  aktual,i,feletti,atlag:integer;
  
  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;
  for i:=1 to 10 do
  
  if (aktual-vektor[i]>=18)
  then (vektor[i]=feletti);
  
  begin
  feletti:=feletti+1;
  end;
  for i:=1 to 10 do
  
  writeln(feletti);
  
  end.

  Tudom, elég hiányos, és hibás bőven. Még csak most kezdtük a tömböket. Igazából a változókat nem értem, hogy mikor, mit, miért és mire kell állítanom, ha tömböket kezelek.

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