profile
Опубликовано 6 лет назад по предмету Информатика от prikalistka87

Дана последовательность из N атуральных чисел , определяюшая рост учеников в классе . Определить , выстроены ли ученики по росту

  1. Ответ
    Ответ дан Neykel
    var i, k: integer;   
            N: array[1..10] of real;  
        begin   
           for i:=1 to 10 do readln(N[i]); 
           k:=1;   
           for i:=1 to 9 do   
             if k<>0 then        
                if N[i]<N[i+1] then k:=k+1                       
                                   else k:=0;     
           if k<>0 then writeln('Ученики выстроены по росту')   
                      else writeln('Ученики выстроены не по росту'); 
        end.       
Самые новые вопросы