Question

Массив из пяти элементов заполняется натуральными числами. Составить программу, которая определяет сумму элементов массива, кратных трем и заканчивающихся на 7( программа Pascal)

Answer 1

Var a:array[1..5] of integer;
i,s:integer;
begin
writeln('Введите 5 чисел:');
for i:=1 to 5 do
 begin
 read(a[i]);
 if (a[i] mod 3 = 0)and(a[i] mod 10 = 7) then s:=s+a[i];
 end;
writeln('s = ',s);
end.

Пример:
Введите 5 чисел:
125 273 117 471 207
s = 324