Дана последовательность

действительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг

Question

Информатика

Анатольич

31 декабря, 03:49

Дана последовательность

действительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг

+3

Ответы (1)

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

Тюша · Answer 1

Var a:array[1 ... 10] of real;

i:integer;

b:boolean;

begin

b:=true;

for i:=1 to 10 do

read (a[i]) ;

for i:=1 to 9 do

if a[i]>a[i+1] then b:=false;

writeln (b) ;

end.

Дана последовательностьдействительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг

Дана последовательность

действительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг