roincerc.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 65 行

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
 if v[i].precip>v[i+1].precip then
                              begin
                              aux:=v[i];
                              v[i]:=v[i+1];
                              v[i+1]:=aux;
                              u[i]:=i;
                              i:=i+1;
                              u[i+1]:=u[i];
                              ok:=false;
                              end;
end;
until ok;
for i:=1 to n 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.