Размер массива и сам массив вводится с клавиатуры. Найдите сумму элементов,...

Question

Размер массива и сам массив вводится с клавиатуры. Найдите сумму элементов, удволетворяющих условию: остаток от деления на 3 равен 2.

Answer 1

Var
  mass : array of integer;
  len, tempNumber, summ, i : integer;
begin
  write('Введите длину массива: ');
  readln(len);
  SetLength(mass, len);
  for i := 0 to len - 1 do
  begin
    write('mass[', i, '] = ');
    readln(mass[i]);
  end;
  summ := 0;
  for i := 0 to len - 1 do
    if mass[i] mod 3 = 2 then    
      summ := summ + mass[i];
  writeln('Сумма: ', summ);
end.