| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 13:47 Titlul subiectului: Problema 06 |
|
|
| Cod: |
{6. in fisierul valori.txt pe aceeasi linie, despartite printr-un spatiu,
se gasesc maximum 1000 de numere intregi. scrieti un program care sa determine
valoarea maxima si valoarea minima, impreuna cu numarul de aparitii al maximu-
lui, respectiv al minimului. folositi o metoda eficienta din punct de vedere al
memoriei si al numarului de operatii efectuate si afisati pe ecran valorile
cerute.}
program ex6;
var f:text;
max, min, m1, m2, a:integer;
begin
assign(f,'valori.txt'); reset(f);
max:=-maxint; min:=maxint;
m1:=1; m2:=1;
while not eoln(f) do begin
read(f,a);
if a<min then begin
min:=a;
m2:=1;
end
else if a=min then m2:=m2+1;
if a>max then begin
max:=a;
m1:=1;
end
else if a=max then m1:=m1+1;
end;
write('max este: ',max,' si apare de ',m1,' ori');
write('min este: ',min,' si apare de ',m2,' ori');
end.
|
|
|
| Sus » |
|
 |
misanchik
Superelev
Data inscrierii: 22/Iul/2012
Mesaje: 5
Localitate: Bulgaria
|
| Trimis: 31.07.2012 09:52 Titlul subiectului: |
|
|
| Yes, there is nothing wrong with say, but say that this is a extra article is not worth it! |
|
| Sus » |
|
|
noganoga
Superelev
Data inscrierii: 13/Iul/2012
Mesaje: 5
Localitate: Israel
|
| Trimis: 06.08.2012 11:52 Titlul subiectului: |
|
|
| This is simply amazing! |
|
| Sus » |
|
|
noganoga
Superelev
Data inscrierii: 13/Iul/2012
Mesaje: 5
Localitate: Israel
|
| Trimis: 09.08.2012 12:21 Titlul subiectului: |
|
|
| Hi!!! Nice post Thank for that) Besides my friends real agree with me)) Thank again! |
|
| Sus » |
|
|
|
|
