Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей Turbo Pascal
Дана последовательность действительных чисел. Выяснить, будет ли она возрастающей Turbo Pascal
Гость
Ответ(ы) на вопрос:
Гость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 .
Не нашли ответ?
Похожие вопросы