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

• #2217 zvaragabor senior tag zvaragabor #2216

  Új Válasz 2008-04-28 21:40:08 #2217

  Ú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

  válasz zvaragabor #2216 üzenetére

  Ezt megoldottam. Valamint a felettiek meghatározásánál volt még gond.Ügyküdtem, itt tartok:

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

  Érdekes eredményeket kapok.

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