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

• #2220 [HUN]Zolee őstag zvaragabor #2217

  Új Válasz 2008-04-29 10:22:11 #2220

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

  Akkor nézd meg így.
  /nincs pascalom, csak itt írom meg, ezért lehet hibás /

  program osztaly;
  
  uses wincrt;
  
  var vektor:array[1..10] of integer;
  aktual,ossz,kor,i,felettidb:byte;
  atlag:real;
  
  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]);
  
  
  felettidb:=0;
  ossz:=0;
  for i:=1 to 10 do
  begin
  
  if (aktual-vektor[i]>=18) then felettidb:=felettidb+1;
  
  ossz:=ossz+(aktual-vektor[i]);
  
  end;
  atlag:=ossz/10;
  
  write('18 ev felettiek szama: ',felettidb);
  writeln('A tanulók átlag életkora: ',atlag);
  
  end.

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