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

Question

Информатика

Фаня

19 октября, 06:54

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

+3

Ответы (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.