1. Главная
  2. Сборник Pascal

Каждый отрицательный элемент массива заменить полусуммой соседей - Pascal

  1. Составить программу. Пусть дан массив из n элементов.Каждый отрицательный элемент замените полусуммой тех двух элементов, которые стоят с ним справа и слева. Помогите пожалуйста.

textual

Код:

const n = 8;
var a: array[1..n] of real;
    i: integer;
    t, ti: real;
 
begin
  randomize;
  for i := 1 to n do
    repeat
      a[i] := -99 + random(199);
    until ((i > 1) and (i < n)) or (a[i] > 0);
  writeln('Исходный массив:');
  for i := 1 to n do write(a[i]:6:1);
  writeln;
  t := a[1];
  for i := 2 to n - 1 do
    begin
      ti := a[i];
      if a[i] < 0 then a[i] := (t + a[i + 1]) / 2;
      t := ti
    end;
  writeln('Результат:');
  for i := 1 to n do write(a[i]:6:1);
  readln
end.
Источник

Похожие ответы

  1. Паскаль. Заменить каждый отрицательный элемент произведением всех ненулевых элементов массива (8);

  1. Ввести двумерный массив A(N x M). Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3. Массив вывести до и после преобразования.

  1. Помогите мне, пожалуйста, написать вот эти задачи: 2. Заменить каждый отрицательный элемент его квадратом, если он стоит на нечетном месте. Заранее всем очень благодарна)))

  1. Ввести одномерные массивы X1(n1), X2(n2) и X3(n3) . Разделить каждый из элементов на максимальный элемент среди отрицательных элементов соответствующего массива. Массивы вывести на экран до и после преобразования (или сообщение о невозможности преобразования). (При решении реализовать процедуры ввода и вывода массивов: Vvod1m(A,N,Name) и Vivod1m(A,N,Name); функцию MaxOtr(A,N):<тип массива> – максимум среди отрицательных, которая равна нулю если отрицательных нет; и процедуру Delenie(A,N,Chislo) – деление элементов массива на значением Chislo)


Нашли ошибку?
Развитие проекта
Яндекс.Метрика