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

• #2608 gergo5991 őstag

  Új Válasz 2013-10-24 11:36:00 #2608

  Ú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

  

  gergo5991

  őstag

  program nylvantartas;
  uses crt;
  type hnh=record
  hnap:1..12;
  nap:1..31;
  ho:shortint;
  end;
  var t:array[1..366] of hnh;
  n:integer;
  osszeg:integer;
  procedure beolvasas(n:integer);
  var i:integer;
  
  begin
  for i:=1 to n do
  begin
  writeln(i,'.ertek');
  write('honap: ');
  readln(t[i].hnap);
  write('nap: ');
  readln(t[i].nap);
  write('homerseklet: ');
  readln(t[i].ho);
  writeln;
  end;
  end;
  begin
  clrscr;
  write('mennyi erteket szeretnel beadni(max 366): ');
  readln(n);
  beolvasas(n);
  readkey;
  end.
  feladat:kikell boviteni, hogy kiszamolja az eves atlag homersekletet, azaz a homersekletet elosztani 366-al.
  Aki esetleg tudna ebben segiteni, megkoszonnem, surgos lenne

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