Foro de elhacker.net

program tp6_4;
uses crt,dos;
type wtf=array [1..30,1..2] of integer;
var matriz:wtf;

procedure fill (var matriz:wtf);
var i:integer;
begin
randomize;
    for i:=1 to 30 do
       begin
            matriz [i,1]:=random(10)-4;
            matriz [i,2]:=random(35)+1;
       end;
end;


procedure show (var matriz:wtf);
var i:integer;
begin
     for i:=1 to 30 do
        begin
             writeln;

                     write ('                 Dia :',(i):5,'         Minima :', matriz [i,1]:5,'         Maxima: ', matriz [i,2]:5);

         end;
end;

procedure calculations (matriz:wtf);
var i,j,minima,maxima,temptotal:integer;
    promedio:real;

begin
minima:=0;
maxima:=0;
temptotal:=matriz[i,1]+matriz[i,2];
promedio:=temptotal/30;

for i:=1 to 30 do
   begin
        if matriz[i,1] < minima then
           minima:=matriz[i,1];
        if matriz[i,2] > maxima then
           maxima:=matriz[i,2];
    end;

writeln;
writeln;
writeln;
writeln ('Temperatura minima del mes: ',minima);
writeln ('Temperatura maxima del mes: ',maxima);
writeln ('Temperatura promedio del mes: ',promedio:8:2);
end;


//begin program
begin
delay(30);
clrscr;
writeln;
writeln (' --------------------------------------------------------------------------------------- ');
writeln ('| MEDICIONES DE TEMPERATURAS MAXIMAS Y MINIMAS CORRESPONDIENTES A LOS 30 DIAS DE UN MES |');
writeln (' --------------------------------------------------------------------------------------- ');
writeln;
fill (matriz);
show (matriz);
calculations (matriz);
readkey;
end.