Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей Turbo Pascal

Question

Информатика

Линуша

26 июля, 14:48

Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей Turbo Pascal

+3

Ответы (1)

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

Мара · Answer 1

Var

a : array [1 ... 10] of integer;

i, j : integer;

f : boolean;

begin

f : = true;

for i : = 1 to 10 do readln (a) ;

for i : = 1 to 9 do

if a > a[i+1]

then

begin f : = false; break;

end

if f then writeln ('da') else writeln ('net') ;

readln;

end.