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

Question

Информатика

Тихон

8 августа, 17:39

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

+4

Ответы (1)

Знаете ответ на вопрос?

Гонеста · Answer 1

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 k0 then

if N[i]
else k:=0;

if k0 then writeln ('Ученики выстроены по росту')

else writeln ('Ученики выстроены не по росту') ;

end.