Дана последовательность реальных чисел. Узнать, будет ли она возрастающей Turbo

Var
a : array [1..10] of integer;
i,j : integer;
f : boolean;
begin
f := true;
for i := 1 to 10 do readln(a);
for i := 1 to 9 do
if a gt; a[i+1]
then
begin f := false; break;
end
if f then writeln('da') else writeln('net');
readln;
end .

Яна 2019-03-27 09:30:16

Спасибо))

Екатерина Сульева 2019-03-27 09:33:23

не вульгарно(((

Нина Логарькова 2019-03-27 09:41:10

Program Pr1;uses crt;var mas:array[1..10] of integer;i,j:integer;Beginclrscr;j:=0;for i:=1 to 10 do read(mas[i]);for i:=1 to 9 do if mas[i+1]>mas[i] then j:=j+1;if j=9 then writeln('YES')else writeln('NO');end.

Мария Пеканова 2019-03-27 09:48:19

пробуйте так, если что, что j поменяйте на a

Nadezhda Levtonova 2019-03-27 09:15:05

Спасибо))

Павел Гладыренко 2019-03-27 09:24:03

не вульгарно(((

Бектепов Даниил 2019-03-27 09:25:29

Program Pr1;uses crt;var mas:array[1..10] of integer;i,j:integer;Beginclrscr;j:=0;for i:=1 to 10 do read(mas[i]);for i:=1 to 9 do if mas[i+1]>mas[i] then j:=j+1;if j=9 then writeln('YES')else writeln('NO');end.

Ромик Баламут 2019-03-27 09:35:25

пробуйте так, если что, что j поменяйте на a

О проекте

Дана последовательность реальных чисел. Узнать, будет ли она возрастающей Turbo

Добро пожаловать!