В массиве 20 целых элементов заданных с клавиатуры найти сумму элементов массива кратных...

Question

В массиве 20 целых элементов заданных с клавиатуры найти сумму элементов массива кратных семи и оканчивающихся на цифру 1

Answer 1

Const
N = 20;

type
Tmas = array [1..N] of longint;

var
m: Tmas;
i, sum: longint;
begin
sum := 0;
for i := 1 to N do
begin
readln(m[i]);
if (m[i] mod 7 = 0) and (m[i] mod 10 = 1) then
sum := sum + m[i] ;
end;
writeln(sum);
end.

пж как лучший