ropr7tst.pas

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

program pr7;
type dataexacta=record
     zi,luna:byte;
     an:integer;
     end;
     informatii=record
     data:dataexacta;
     nume:string[30];
     presiune:byte;
     temp:byte;
     end;
var n,i,max:integer;
    v:array[1..100] of informatii;
begin
write('n=');readln(n);
for i:=1 to n do
              with v[i] do begin
                           write('data zi ');readln(data.zi);
                           write('data luna ');readln(data.luna);
                           write('data an ');readln(data.an);
                           write('nume ');readln(nume);
                           write('presiune ');readln(presiune);
                           write('temperatura ');readln(temp);
                           end;
max:=v[1].temp;
for i:=2 to n do if v[i].temp>max then max:=v[i].temp;
for i:=1 to n do if v[i].temp=max then
write('temperatura maxima ',max:10,'in ziua',v[i].data.zi:10,'meteorolog',v[i].nume:10);

end.