Question

Дан массив А (120), заполненный трехзначными случайными числами. Найти произведение тех элементов, которые принадлежат отрезку (30,60) и сумму тех элементов, которые кратны 6. ПАСКАЛЬ

Answer 1

Ответ:

begin

var N:array of integer;

setlength(n,120);

N.FillRandom(100,999);

 

var b:BigInteger:=1;

for var L:=30 to 60 do

begin

  b:=b*N[L];

end;

writeln('Произведение элементов принадлежащих [30,60]: ',abs(B));

writeln('Сумма элементов кратных 6: ',N.FindAll(x -> x mod 6 = 0).Sum);

end.

Примечание:

1) Для записи числа использован biginteger - динамическая ячейка числа, единственная, в которую можно поместить полученный ответ

2) Сумма элементов кратных 6 находится функцией .Sum примененной к массиву, полученному от функции .FindAll

3) FindAll проверяет заданный массив по восходящему параметру, т.е. каждая следующая ячейка при проверке обозначается как некая переменная (в данном случае, как х) до знака "->", а после к ней применяется выражение (x mod 6 = 0 - т.е. элемент при делении на 6 не должен иметь остатка)

Answer 2

Для решения данной задачи на языке программирования Pascal, вам нужно создать массив из 120 трехзначных случайных чисел и затем выполнить два запроса: вычислить произведение элементов, которые принадлежат отрезку (30,60), и вычислить сумму элементов, которые кратны 6. Вот пример программы на Pascal, выполняющей эти операции:

pascalCopy code
program ArrayOperations;
var
  A: array[1..120] of integer;
  i, product, sum: integer;
begin
  // Заполняем массив A случайными трехзначными числами
  randomize;
  for i := 1 to 120 do
    A[i] := random(900) + 100; // Генерируем случайное трехзначное число

  // Инициализируем переменные
  product := 1;
  sum := 0;

  // Вычисляем произведение элементов, принадлежащих отрезку (30,60)
  for i := 31 to 60 do
    product := product * A[i];

  // Вычисляем сумму элементов, которые кратны 6
  for i := 1 to 120 do
    if A[i] mod 6 = 0 then
      sum := sum + A[i];

  // Выводим результаты
  writeln('Произведение элементов в отрезке (30,60): ', product);
  writeln('Сумма элементов, кратных 6: ', sum);
end.

Эта программа создает массив A из 120 трехзначных случайных чисел, затем вычисляет произведение элементов, принадлежащих отрезку (30,60), и сумму элементов, которые кратны 6, и выводит результаты на экран.