Pascal решить задачу

Question

Pascal решить задачу

Иван Конев Ученик (105), открыт 1 неделю назад

Дан целочисленный одномерный массив, состоящий из n элементов. Найти сумму и произведение нечетных элементов, кратных 3 (Pascal)

Answer 1

- Ученик (123) 1 неделю назад

ответ 2

zlakУченик (100) 1 неделю назад

Есть решение?

Answer 2

zlak Ученик (100) 1 неделю назад

Есть само решение?

Answer 3

Размер массива какой? Массив статический или динамический?

Answer 4

 uses crt; 
var l, m, n: integer; 
s: int64 = 0; p: int64 = 1; 
yes: boolean = false; 
A: array of integer; 
begin 
  clrscr(); 
  write('n: '); 
  readln(n); 
  setlength(A, n); 
  for m := 0 to n-1 do 
    begin 
      write(m + 1: 4, ') '); 
      readln(A[m]); 
      if odd(A[m]) then 
        if A[m] mod 3 = 0 then 
          begin 
            yes := true; 
            s := s + A[m]; 
            p := p * A[m]; 
          end 
    end; 
  if yes then 
    begin 
      writeln('Сумма: ', s); 
      writeln('Произведение: ', p) 
    end 
end.