TEMA DE CASA

1. Fazakas Paul Grupa1-Zanii TEMA DE CASA Prezentati sub forma de probleme 2 situatii din viata cotidiana in care sa se determine maximul / minimul dintr-un sir de numere. Sa se implementeze algoritmii in limbajul Pascal.

2. Cerinte probleme Fazakas Paul Grupa1-Zanii 1)Intr-un magazin cu materiale de constructie, cimentul este organizat in saci de mase diferite. Fiecare tip de sac ocupa cate un raft. Rafturile sunt numerotate de la 1 la 10. Doresc sa aflu care este sacul cu cea mai mare masa si sa gasesc numarul raftului pe care se afla. 2)O fabrica de masini produce cate o masina pe an. Dupa o statistica facuta pe perioada 2001-2005, doresc sa aflu care a fost cea mai ieftina masina si in ce an a fost fabricata.

3. Problema 1 Program Maxim; Var v:array[1..10]of integer; i,n,max:integer; Begin n:=10; Writeln(‘Dati greutatea sacilor in ordinea rafturilor pe care se afla’); For i:=1 to 10 do Begin Write(‘v[‘,i,’]=‘); Readln(v[i]); End; max:=v[1]; For i:=1 to n do If v[i]>max then max:=v[i]; Writeln(‘Sacul cu cea mai mare masa are ’,max,’ kg’); For i:=1 to n do If v[i]=max then Writeln(‘Sacul se afla pe raftul ’,i); End. Fazakas Paul Grupa1-Zanii

4. Problema 2 Program minim; Var v:array[2001..2005]of integer; i,n,min:integer; Begin n:=2005; Writeln(‘Dati pretul tipurilor de masini in ordinea fabricarii’); For i:=2001 to n do begin Write(‘v[‘,i,’]=‘); Readln(v[i]); end; Min:=v[2001]; For i:=2001 to n do If v[i]<min then min:=v[i]; Writeln(‘Cea mai ieftina masina a costat ‘,min,’ euro); For i:=2001 to n do If min=v[i] then writeln(‘Masina a fost fabricata in anul ‘,i); End. Fazakas Paul Grupa1-Zanii