Question

am nevoie urgent de ex.5
ajut reciproc cu teme pentru acasa

Answer 1

Subpunctul a)

procedure limite;
var i,mn,mx:integer;
begin
  mn:=a[0]; mx:=a[0];
  for i:=1 to 23 do
  begin
    if (mn>a[i]) then mn:=a[i];
    if (mx<a[i]) then mx:=a[i];
  end;
  writeln('Temperatura minima ',mn);
  writeln('Temperatura maxima ',mx);
end;

Subpunctul b)

procedure maximul;
var i,mx:integer;
begin
  mx:=a[0];
  for i:=1 to 23 do
    if a[i]>mx then mx:=a[i];
    write('Ora (Orele) cu valori maxime ale temperaturii e (sunt) ');
  for i:=0 to 23 do
    if (a[i]=mx) then write(i,' ');
  writeln;
end;

Subpunctul c)

procedure minimul;
var i,mn:integer;
begin
  assign(output,'1.txt');
  rewrite(output);
  mn:=a[0];
  for i:=1 to 23 do
    if a[i]<mn then mn:=a[i];
  write('Ora (Orele) cu valori minime ale temperaturii e (sunt) ');
  for i:=0 to 23 do
    if (a[i]=mn) then write(i,' ');
  close(output);
end;