25 баллов.Вводится последовательность вещественных чисел. Признак конца ввода – 0. Определить является ли последовательность упорядоченной по убыванию.Паскаль

Question

25 баллов.Вводится последовательность вещественных чисел. Признак конца ввода – 0. Определить является ли последовательность упорядоченной по убыванию.Паскаль

Гость

Ответ(ы) на вопрос:

Accepted Answer

я не буду писать полный код , ок? real n,m; integer t; t=0; m:=-100000000000000;{крч. какое-нибудь дофига маленькое число} while(n<>0) begin readln(n); if m>=n then begin t:=5; break; end; m:=n; end; if t=5 then writeln(yes); else writeln(no);