Помогите решить через паскаль

Question

Помогите решить через паскаль

Кристина Носова Ученик (119), закрыт 1 год назад

Массив состоит из 15 целых чисел в промежутке от -20 до 25 сформированый при помощи randomize Найти сумму элементов массива кратных 3 но не кратных 2

Answer 1

 uses crt; 
var i, s: integer; 
A: array[1..15] of integer; 
begin 
  clrscr(); 
  s := 0; 
  randomize(); 
  for i := 1 to 15 do 
    begin 
      A[i] := random(46) -20; 
      write(A[i], ' '); 
      if (A[i] mod 3 = 0) and odd(A[i]) 
        then s := s + A[i] 
    end; 
  writeln(); 
  if s > 0 then writeln('S = ', s) 
  else writeln('Нет нечётных элементов кратных трём') 
end.