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

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

Question

Информатика

Талюша

23 марта, 12:05

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

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

+5

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

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

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

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