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

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


textual

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

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.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.077 из 5



Похожие ответы
  1. Упорядочить каждый столбец матрицы по возрастанию массив размером m на n.

  1. Помогите решить задачу на Паскале. Нужно каждый четный элемент матрицы удвоить

  1. дана строка. преобразовать ее удалив каждый символ "*"

  1. Дан двумерный массив размером n*m, заполненный случайным образом. 3. Удалить все столбцы, в которых есть отрицательный элемент.

  1. Дан файл, в котором в каждой строке записаны элементы линейных массивов различной длины. Отсортировать каждый массив по убыванию методом подсчета. Отсортированные массивы записать в тот же файл.

  1. Дана таблица a[n;m] умножить каждый элемент первой строки на a[1;1], а каждый элемент второй строки на a[2;2]. Помогите пожалуйста, отчет скоро сдавать и задачу надо решить в паскале. Спасибо за помощь!

  1. Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого равен b[i]=a[1]+a[2]+...+a[i].

  1. выполнить с использованием процедуры ввод и вывод массивов и других данных не объединять с обработкой данных. Дана целочисленная матрица А размером 10х12. Сформировать вектор D, состоящий из номеров строк, содержащих хотя бы один отрицательный элемент. Использовать процедуру для формирования вектора.