Hogyan kell ezt megoldani free pascalla? Jó lenne egy kis segítség.

Hol akadtál el?

Honnan kapja a program a mért értékeket? Más egyéb dolgokat is ki kell számítania ezeken kívül? Ha igen akkor mindenképpen egy tömbbe érdemes berakni.

Értem.

Honnan kapja a program a mért értékeket? Egy txt fájlból olvassa?

"kell a legmagasabb,legalacsonyabb hőmérséklet tizedesjegyben!"

Bocsi de ez elég magyartalan. Tizedes törtek-be vannak a számok?

Írj le mindent világosan érthetően hogy tudjak segíteni!

30 nap alatt 6 óránkénti mérésből 120 db mérési adat lesz.

Akkor elhetne pl.:

var

mertho:array [1..120] of double = (

16.5,

18.4,

17.3,

);

Csak az első 3-at írtam, nem fogok 120 számot kitalálni.

Tulajdonképp a program maga is generálhat random 120 számot, én inkább azt választanám a helyedbe, egy for ciklussal randomba feltölti.

Inkább:

var

mertho:array [1..120] of double;

i:intgeger,{ciklus változó}

min,max:double;

2 változó ami szintén 1-1 for ciklussal végégmegy a tömbön, akár 1 for ciklussal is megoldható. Gondolom volt szó minimum és maximum kiválasztásról, azt kell használni.

Ezt elgépeltem:

i:intgeger;

Így:

i:integer;

Program Homero;

var

Ho : array[1..120] of real;

Max, Min : real;

i : integer;

begin

Randomize;

Writeln;

for i:=1 to 120 do

begin

Ho[i]:=(Random(10)+15)+(Random(10)/10);

Write(Ho[i]:4:1,' ');

end;

Max:=Ho[1];

Min:=Ho[1];

for i:=2 to 120 do

begin

if Ho[i] > Max then Max:=Ho[i];

if Ho[i] < Min then Min:=Ho[i];

end;

Writeln;

Writeln('Minumum: ',Min:4:1);

Writeln('Maximum: ',Max:4:1);

end.