Все члены массива, начиная с первого положительного, уменьшить на 0,5 - Turbo Pascal

  1. Дан массив чисел A(N). все члены этого массива, начиная с первого положительного, уменьшить на 0,5.


textual

Код к задаче: «Все члены массива, начиная с первого положительного, уменьшить на 0,5 - Turbo Pascal»

flag := false;
for i := 1 to n do begin
  if A[i] > 0 then
    flag := true;
  if flag then
    A[i] := A[i] - 0.5;
end;

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

9   голосов, оценка 3.889 из 5



Похожие ответы
  1. Дана прямоугольная матрица A(n*m). Заменить наименьший элемент каждой строки, начиная со второй, наибольшим элементом предыдущей строки.

  1. Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. Составить постановку, алгоритм и в PASCALе программу поиска лежащих в пределах от 1976 до 2045 элементов массива Y из 12 чисел. Значения элементов указать с клавиатуры, помогите, это срочно! Приложу то, что я написал, но где-то ошибка, помогите

  1. Составьте программу заполнения с клавиатуры и вывода на экран массива из 5 элементов. Найдите элемент наиболее отличающийся от первого

  1. Составить текст программы на языке Паскаль, содержащий: 1) процедуру, выполняющую действия над массивами сумму элементов массива, расположенных после минимального элемента. Диапазон – [-10;30].; 2) процедуру, выполняющую ввод элементов массива с клавиатуры; 3) процедуру, выполняющую заполнение массива случайными величинами в заданном диапазоне; 4) процедуру, выполняющую вывод элементов массива на экран в виде таблицы.

  1. Задан вектор А, в котором n элементов (не менее 15), посчитать сумму элементов массива, значения которых находятся в диапазоне от B до С. Заранее спасибо.

  1. в Массиве целых чисел что складывается из 20 элементов,узнать сумму элементов,что стоят на первых местах и произведение элементов,которые стоят на непарных местах.Полученный результат записать в текстовый файл! дайте решение данной программы пожалуйста

  1. Заполнить одномерный массив с помощью датчика случайных чисел. Подсчитать количество и сумму элементов массива больших 10,вывести полученный результат.

  1. Дан одномерный массив латинских букв. Отсортировать их методом выбора в порядке убывания. Вычислить среднее арифметическое кодов элементов отсортированного массива, имеющих индекс кратный трем. Вывести на экран отсортированный массив и вычисленное значение. Помогите решить пожалуйста!!! Срочно,могу отблагодарить! Заранее спасибо!