Question

дана последовательность целых чисел написать программу которая должна выяснить является ли эта последовательность убывающей Используйте Паскаль,если можно,то с командой array

Answer 1

program raf105;

var a:array[1..100] of integer;

i,b:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

i:=1;

readln(a[i]);

while a[i]<>0 do

begin

 i:= i+1;

 readln(a[i]);

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

   then b:=1;

end;

if b=1

 then writeln('Последовательность не является убывающей.')

 else writeln('Последовательность убывающая.');

end.

Программа написана на языке PascalABC.NET

Answer 2

Конечно, я могу предоставить пример программы на языке Pascal для определения, является ли последовательность целых чисел убывающей. В этом примере мы используем массив для хранения последовательности чисел.

pascalCopy code
program CheckDescendingSequence;

const
  MAX_SIZE = 100; // Максимальный размер последовательности

type
  IntArray = array[1..MAX_SIZE] of Integer;

var
  sequence: IntArray;
  n, i: Integer;
  isDescending: Boolean;

procedure ReadSequence(var arr: IntArray; n: Integer);
var
  i: Integer;
begin
  writeln('Введите последовательность из ', n, ' целых чисел:');
  for i := 1 to n do
    readln(arr[i]);
end;

function IsDescendingSequence(arr: IntArray; n: Integer): Boolean;
var
  i: Integer;
begin
  IsDescendingSequence := True; // Предполагаем, что последовательность убывающая

  for i := 1 to n - 1 do
  begin
    if arr[i] < arr[i + 1] then
    begin
      IsDescendingSequence := False; // Если найдено неубывающее число, то последовательность не убывающая
      Break;
    end;
  end;
end;

begin
  writeln('Введите размер последовательности (не более ', MAX_SIZE, '):');
  readln(n);

  if (n > 0) and (n <= MAX_SIZE) then
  begin
    ReadSequence(sequence, n);
    isDescending := IsDescendingSequence(sequence, n);

    if isDescending then
      writeln('Последовательность является убывающей.')
    else
      writeln('Последовательность не является убывающей.');
  end
  else
    writeln('Некорректный размер последовательности. Пожалуйста, введите число от 1 до ', MAX_SIZE, '.');
end.

Программа запрашивает у пользователя размер последовательности и сами числа. Затем она проверяет, является ли последовательность убывающей, и выводит соответствующее сообщение.