GAECHKA
Твоя помощница в решении задач

Вычислить третью часть произведения элементов нечётных по значению и расположенных на чётных местах

Вычислить третью часть произведения элементов нечётных по значению и расположенных на чётных местах.

Прошу, срочно нужно
0
вопрос задан

Источник


1 ответ
Решение
const
  nmax = 100;
 
var
  a: array [1..nmax] of integer;
  k, i, n: integer;
  p: real;
 
begin
  Randomize;
  Write('Введите размерность: ');
  Readln(n);
  Writeln('Исходный массив: ');
  for i := 1 to n do
  begin
    A[i] := -nmax div 2 + random(nmax);
    Write(A[i], ' ');
  end;
  Writeln;
  p := 1;
  k := 0;
  for i := 1 to n do
    if (a[i] mod 2  0) and not odd(i) then 
    begin
      p := p * a[i];
      inc(k);
    end;
  if k  0 then
    Writeln('3-я часть произведения: ', p / 3)
  else
    Writeln('Нет таких чисел!')
end.