Вычислить номер максимального по модулю элемента массива - Turbo Pascal

  1. В одномерном массиве, состоящем из n вещественных элементов, вычислить 1 Номер максимального по модулю элемента массива. 2 Сумму элементов массива, расположенных после первого положительного элемента. Преобразовать массив такие образом, чтобы сначало располагались все элементы, целая часть которых лежит в интервале [а,б], а потом все остальные.


textual

Код к задаче: «Вычислить номер максимального по модулю элемента массива - Turbo Pascal»

const
  k = 10;
 
var
  B, C: array[1..100] of real;
  a, S, max: real;
  n, i, imax, p: integer;
  bln: boolean;
 
begin
  write('n = ');
  readln(n);
  write('a = ');
  readln(a);
  bln := true;
  S := 0;
  max := -k;
  write('Введим массив ', n, ' случайных вещественных чисел:');
  randomize;
  for i := 1 to n do begin
    b[i] := k * (2 * random - 1);
    write('  ', b[i]:0:3);
    if abs(b[i]) > max then begin
      max := abs(b[i]);
      imax := i
    end;
    if bln then begin
      if b[i] > 0 then bln := false
    end
    else S := S + b[i]    
  end;
  writeln;
  writeln('Номер максимального по модулю элемента: ', imax);
  writeln('Сумма элементов массива после 1-го положительного: ', S:0:3);
  writeln;
  p := 0;
 { Делаем преобразование: }
  for i := 1 to n do
    if ((int(b[i]) >= a)and(int(b[i]) <= 6)) then begin 
      inc(p);
      c[p] := b[i]
    end;
  for i := 1 to n do
    if ((int(b[i]) < a)or(int(b[i]) > 6)) then begin
      inc(p);
      c[p] := b[i]
    end;
  writeln('Выводим преобразованный массив:');
  for i := 1 to p do write('  ', c[i]:0:3);
end.

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

10   голосов, оценка 4.100 из 5



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

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

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

  1. 2.Дана целочисленная матрица размерности (n ×n). Найти номер столбца, в котором нет отрицательных элементов.

  1. Найти номер первого из столбцов, не содержащих элементов, меньших s. (матрица)

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.