Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей Turbo Pascal
Answers & Comments
Puma1902
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 > a[i+1] then begin f := false; break; end if f then writeln('da') else writeln('net'); readln; end .
Puma1902
Program Pr1; uses crt; var mas:array[1..10] of integer; i,j:integer; Begin clrscr; 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.
Puma1902
попробуйте так, если что, что j поменяйте на a
Answers & Comments
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 > a[i+1]
then
begin f := false; break;
end
if f then writeln('da') else writeln('net');
readln;
end .
uses crt;
var mas:array[1..10] of integer;
i,j:integer;
Begin
clrscr;
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.