Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Turbo Pascal programozás

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!

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

  • #2214 zvaragabor senior tag
    Új Válasz #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