Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей (Паскаль) нужен листинг
Answers & Comments
PopCop312
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.
Answers & Comments
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.