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

Да се напише програма, която позволява да се въведат N числа и извежда най-малкото и най-голямото сред тях.

Публикувано в с етикети . Постоянна връзка.

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

  1. kaloyan каза:
    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.      
    
  2. Violeta каза:
    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 каза:
    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.
    
                                                                        
    

Вашият коментар