Деление элементов массива друг на друга - Free Pascal

  1. Приветствую, помогите пожалуйста с задачей: Даны два массива из целых чисел, представлены, соответственно, делимыми и делителями. Получить третий массив REZ, элементы которого будут частными от деления соответствующих пар исходных массивов


textual

Код к задаче: «Деление элементов массива друг на друга - Free Pascal»

program test;
 
const
  n = 5;
type
  TArray = array[1..n] of real;
var
  i: integer;
  a, b, rez: TArray;
begin
  for i := 1 to n do
    a[i] := 3 * i;
  for i := 1 to n do
    b[i] := 4 * sqr(i);
  for i := 1 to n do
  begin
    rez[i] := a[i] / b[i];
    Write(rez[i]: 0: 2, ' ');
  end;
  writeln;
end.

Блок-схема:

Блок-схема к задаче: Деление элементов массива друг на друга - Free Pascal

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

12   голосов, оценка 4.333 из 5



Похожие ответы
  1. Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива А: bi = (a1 + a2 + ... + ai ) / i

  1. Заполнить массив на 200 элементов псевдослучайными числами от 20 до 80: 1)Найти среднее арифметическое всех элементов. 2)Найти среднее арифметическое всех элементов меньше пятидесяти 3)Заменить наименьшие значения в массиве нулями Вывести полученный массив.

  1. Подпрограммы. Даны две квадратные матрицы:A размером 6х6 и B размером 10х10. Сформировать одномерные массивы А1 и B1 из элементов главных диагоналей матриц А и B.

  1. Даны три матрицы: a, b, c размером n m(n,m<=12). Определить в какой из них среднее арифметическое положительных элементов больше.

  1. Впишите пропущенную строку для вычисления суммы элементов массива a[1..k]: s:=0; for n:=1 to k do writeln(‘s=’,s);

  1. Помогите пожалуйств составить подпрограмму - процедуры вычисления произведения отрицательных элементов массива B(2×3)rightarrow PO и использовать ее для вычисления выражения: X(i - нижний индекс)= а^2(i - нижний индекс)/2РО В(i,j -нижний индекс)=|-0.4 2.8 -12.6| |5.5 -0.5 6.2 | a(i -нижний индекс)=10.2;8;25. Буду очень благодарен.

  1. Помогите пожалуйста с составлением программы. Условие: Найти сумму положительных (SP) и количество отрицательных (PO) элементов массива Z(7) и минимальный элемент массива b(2,3) и вычислить [x][/i]: x(i-тое)=((sqrt(SP))/(PO+a*c))+b(min-в индексе)*Sqr(k)+Z(i-ое); a=2,5e-3; c=175; K=8; Z(i-тое)=-2,3,12,-7,-18,27,-10; B(2,3)=Матрица 0.3 1.5 -6.1 7.2 10.3 0.6 Добавлено через 5 минут

  1. Хелпуйте) 0) Надо вычислить сумму квадратов элементов, принадлежащих промежутку (E,F] 1) Вычислить сумму элементов t-ого столбца (t через readln) В совокупности с этим кодом)

  1. Дана квадратная матрица порядка n(n=5). Получить элементы вектора x, равные сумме чётных элементов каждой строки, если среди элементов матрицы нет отрицательных элементов, иначе каждый элемент вектора x равен произведению элементов столбца. С комментариями, пожалуйста.