👤
MILKKAAAEZ
a fost răspuns

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

Am Nevoie Urgent De Ex5 Ajut Reciproc Cu Teme Pentru Acasa class=

Răspuns :

LOZANALEXEZ
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;
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari