дан вектор размером n определить является ли числовая последовательность возрастающей
( числа вести в ручную)
var
a:array[1..1000] of real;
n, i:integer;
check:boolean;
begin
write(n = ); readln(n);
check := true;
write(a[1] = );
readln(a[1]);
for i := 2 to n do
begin
write(a[, i, ] = );
readln(a[i]);
if a[i - 1] >= a[i] then
check := false;
end;
if check then
writeln(Последовательность возрастающая)
else
writeln(Последовательность не является возрастающей);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
