Регистрация
LunyaShag
12.07.2021 15:08
Информатика
Есть ответ 👍

как эти животные связаны с информатикой ​

253
423
Посмотреть ответы 1

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

robertsolovev39
robertsolovev39
4,4(81 оценок)

var

  a: array[1..1000] of real;

  n, i: integer;

  check: boolean;

begin

  write('n = '); readln(n);

 

  check : = true;

  write('a[1] = ');

  readln(a[1]);

  for i : = 2 to n do

  begin

      write('a[', i, '] = ');

      readln(a[i]);

      if a[i - 1] > = a[i] then

          check : = false;

  end;

 

  if check then

      writeln('последовательность возрастающая')

  else

        writeln('последовательность не является возрастающей');

end.

Популярно: Информатика