Question

как Написать программу, которая в последовательности чисел (количество вводится с клавиатуры) определяет сумму чисел, кратных 9 и оканчивающихся на 3.
PascalABC.net

Answer 1

var
a: array of integer;
i,n, s: integer;
begin
write('Введите количество чисел: ');
readln(n);
SetLength(a, n);
s:=0;
for i:=0 to n-1 do 
begin 
write('Введите число', i+1, ': '); 
readln(a[i]); 
if (a[i] mod 9 = 0) and (a[i] mod 10 = 3) then s:=s+a[i]; 
end;
writeln;
writeln('Исходный массив:');
for i:=0 to n-1 do write(a[i]:5);
writeln;
writeln('Сумма чисел, кратных 9 и оканчивающихся на 3 = ', s:5);
a:=nil;
end.