profile
Опубликовано 5 лет назад по предмету Информатика от alexandragribo

Дано целое число N (>1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести True, если нет — вывести False.
Подробное решение,пожалуйста)
И не с инета)

  1. Ответ
    Ответ дан petyaGavrikov
    var n,i:integer; a,b:real; l:boolean;
    begin
    write('N='); readln(n);
    l:=true;
    write('a='); readln(a);
    for i:=2 to n do
     begin
     write('a='); readln(b);
     if b<a then l:=false;
     a:=b;
     end;
    writeln(l);
    end.

    Пример:
    N=5
    a=2
    a=4
    a=5
    a=7
    a=9
    True