Най-голямото и най-малкото число

4 Responses to Най-голямото и най-малкото число

1. kaloyan каза:

   16 май, сряда в 13:03

   VAR n,i,max,min,chislo : integer;
   BEGIN
   write('kolko chisla shta vavejdate: '); readln(n);
   write('vavedi chislo: '); readln(chislo); //за да се присвои първоначалното въведено число като най-малкото число
   max:=0;
   min:=chislo;
     for i:=2 to n do
       begin
         write('vavedi chislo: '); readln(chislo);
           if chislo<min then min:=chislo
             else
           if chislo>max then max:=chislo;
       end;
     writeln('nai-malkoto chislo e ',min,' a nai-goliamoto chislo e ',max);
   readln;
   END.      
   

   Влезте, за да отговорите
   • Данаил каза:

     28 май, понеделник в 02:12

     Ако се въвеждат само отрицателни числа, твоята програма няма да показва вярно максималното число – ще извежда 0 вместо това. По-коректно е да инициализираш с max:=chislo;

     Влезте, за да отговорите
2. Violeta каза:

   16 май, сряда в 13:26

   program Project1;
   var N,max,min,i, chislo: integer;
   begin
   WriteLn('Vavedi N');
   ReadLn(N);
   WriteLn('Vavedete chislo') ;
   ReadLn(chislo);
   max:=chislo;
   min:=chislo;
   
   for i:=1 to N-1 do begin
   WriteLn('Vavedete chislo') ;
   ReadLn(chislo);
   if chislo>max then
   max:=chislo;
   if chislo<min then
   min:= chislo;
   end;
   WriteLn('Nai- golqmoto chislo e' ,max);
   WriteLn('Nai- malkoto chislo e', min);
   ReadLn;
   end.
               

   Влезте, за да отговорите
3. Lora9631 каза:

   17 май, четвъртък в 08:23

   VAR Chislo , broi, max , min,i :integer;
   
   begin
   //въвеждат се броя на числата
     Writeln('Vavedete broia na chislata:');
     Readln(broi);
   //въвежда се първото число, за да се присвои като най-малко и като най-голямо, за да се сравнява със следващите
     writeln('Vavedete chislo 1');
     ReadLn(chislo);
     max:=chislo;
     min:=chislo;
   
   for i:=1 to broi-1 do begin
     WriteLn('Vavedete chislo ', i+1);
     Readln(chislo);
     if chislo > max then
        max:=chislo;
     if chislo < min then
     min:= chislo
   end;
   
   writeln('nai-malko: ',min);
   writeln('nai-goliamo: ', max);
   
   readln;
   end.
   
                                                                       
   

   Влезте, за да отговорите