Информатика, опубликовано 2018-08-22 19:53:50 by Гость
Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.