Question

10 значений для массива входят с клавиатуры.Программа сравнивает элемент с последующим и предыдущим через один.Если элемент равен предыдущему через один и больше последующего через один,а также элемент кратен 3,то данный элемент увеличивается в 2 раза.В итоге программа выводит изменённый массив.Паскаль

Answer 1

Ответ:

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

var i, t:integer;

begin

for i:=1 to 10 do

readln(a[i]);

for i:=3 to 8 do

if (a[i]=a[i-2]) and (a[i]>a[i+2]) and (a[i] mod 3=0) then

begin

a[i]:= a[i]*2;

end;

for i :=1 to 10 do

write(a[i],' ');

end.

Answer 2

Вот пример программы на Pascal, которая выполняет описанные вами действия:

pascalCopy code
program ArrayModification;

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

begin
  // Ввод элементов массива с клавиатуры
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
    readln(arr[i]);

  // Проходим по элементам массива, начиная с третьего и до предпоследнего
  for i := 3 to 9 do
  begin
    // Проверяем условия
    if (arr[i] = arr[i - 1] + 1) and (arr[i] > arr[i + 1] + 1) and (arr[i] mod 3 = 0) then
      arr[i] := arr[i] * 2;
  end;

  // Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to 10 do
    writeln(arr[i]);
end.

Эта программа сначала запрашивает 10 целых чисел с клавиатуры и затем проверяет условия, описанные в вашем вопросе, для каждого элемента массива, начиная с третьего элемента и заканчивая предпоследним. Если условия выполняются, то элемент умножается на 2. После этого программа выводит измененный массив.