roreg2.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program pr86;
type date=record
     temp:array[1..40] of integer;
     ora:array[1..24] of integer;
     precip:integer;
     end;
    zi=array[1..100] of date;
var v:zi;
    u:array[1..100] of integer;
n,i,k,j,t,s: integer;
max,min:byte;
ok:boolean;
aux:date;
m:real;
begin
write('Nr. de ore pe zi= ');readln(k);
write('Nr. de zile');readln(n);
for i:= 1 to n do
             with v[i] do
                     begin
                     for j:=1 to k do
                     begin
                     write('temperatura in ziua ',i,' ');readln(temp[j]);
                     write('la ora ');readln(ora[j]);
                     end;
                     write('cantit de precip in ziua ',i,' ');readln(precip);
                     end;
 max:=v[1].temp[1];
   for i:=1 to n do
    for j:=1 to k do
           if v[i].temp[j]>max then max:=v[i].temp[j];
for i:=1 to n do
 for j:=1 to k do
if v[i].temp[j]=max then  writeln('temperatura max ',v[i].temp[j],' ziua ',i,' ora ',v[i].ora[j]);
    min:=v[1].temp[1];
    for i := 1 to n do
       for j:= 1 to k do
       if v[i].temp[j]<min then min :=v[i].temp[j];
       for i := 1 to n do
        for j := 1 to k do
         if v[i].temp[j]=min then writeln('temperatura min ',v[i].temp[j],' ziua ',i,' ora ',v[i].ora[j]);
repeat
ok:=true;
for i:= 1 to n-1 do
begin
t:=i;
 if v[i].precip>v[i+1].precip then
                              begin
                              aux:=v[i];
                              v[i]:=v[i+1];
                              v[i+1]:=aux;
                              u[i]:=t;
                              t:=u[i+1];
                              u[i+1]:=t;
                              ok:=false;
                              end;
end;
until ok;
for i :=  n downto 1 do
writeln('ziua ',u[i],' ', v[i].precip);
for i := 1 to n do
s:=s+v[i].precip;
m:=s/n;
write(m:2:2);
end.