Question

(Паскаль)3. Заполнить с клавиатуры массив из 10 элементов. Проверить является ли массив возрастающей последовательностью

Answer 1

Program chik;
var a:array[1..100]of integer;
i,r:integer;
begin
r:=0;
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
if(a[i]>a[i+1])then r:=1;
end;
if(r=1)then writeln('не является возрастающей');
if(r=0)then writeln(' Яв.. возрас..');
end.

Answer 2

Заполнение массива из 10 элементов с клавиатуры

Для заполнения массива из 10 элементов с клавиатуры в языке программирования Паскаль можно использовать следующий код:

program ArrayInput;

var
  arr: array[1..10] of Integer;
  i: Integer;

begin
  writeln('Введите 10 элементов массива:');
  for i := 1 to 10 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

writeln('Массив заполнен следующими элементами:');
  for i := 1 to 10 do
    writeln('Элемент ', i, ': ', arr[i]);
end.

В этом коде мы объявляем массив `arr` из 10 элементов типа `Integer` и используем цикл `for` для заполнения массива значениями, вводимыми с клавиатуры. Затем мы выводим заполненный массив на экран.

Проверка массива на возрастающую последовательность

Для проверки, является ли массив возрастающей последовательностью, мы можем использовать следующий код:

program ArrayCheck;

var
  arr: array[1..10] of Integer;
  i: Integer;
  isIncreasing: Boolean;

begin
  writeln('Введите 10 элементов массива:');
  for i := 1 to 10 do
  begin
    write('Элемент ', i, ': ');
    readln(arr[i]);
  end;

isIncreasing := True;
  for i := 2 to 10 do
  begin
    if arr[i] <= arr[i - 1] then
    begin
      isIncreasing := False;
      break;
    end;
  end;

if isIncreasing then
    writeln('Массив является возрастающей последовательностью.')
  else
    writeln('Массив не является возрастающей последовательностью.');
end.

В этом коде мы сначала заполняем массив `arr` значениями, вводимыми с клавиатуры, а затем используем цикл `for` для проверки каждого элемента массива. Если текущий элемент меньше или равен предыдущему элементу, то массив не является возрастающей последовательностью. Если все элементы массива удовлетворяют условию возрастания, то выводится сообщение о том, что массив является возрастающей последовательностью. В противном случае выводится сообщение о том, что массив не является возрастающей последовательностью.

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