напишите программу, которая в последовательности натуральных чисел определяет сумму трехзначных чисел кратных 6. программа получает на вход натуральные числа количество введенных чисел неизвестно последовательность чисел заканчивается числом 0 ( 0 признак окончания ввода не входит в последовательность) количество чисел не привышает 1000 введенные числа не привышают 30000. программа должна вывести одно число сумму трехзначных чисел кратных 6. пример программы вводные данные 120, 9, 365, 4, 0

Собственно, здесь нет ничего удивительного. Как и в любой сфере, связанной с чем то, где требуется какой то образец для начинающих всегда требуется в данном случае это шаблон.Потому что, существуют определенные рамки,правила, Уставы, Законы того или иного общества, сообщества. Если это будет отсутствовать , то это уже будет сфера не профессиональная, а на уровне дилетанства.Ни одна сфера деятельности этого не потерпит. Поэтому, все верно, залогом правильности, верности, образца и хорошей дальнейшей деятельности служит макет, ШАБЛОН.

Program z;

var
p,s,n,m:integer;
a:array [1..10,1..10] of integer;

begin     
writeln('Введите кол-во столбцов');     
readln(n);     
writeln('Введите кол-во строк');     
readln(m);     
writeln('Ввод матрицы');     
for var i:=1 to n do         
   for var j:=1 to m do             
   begin                 
      write('a[',i,',',j,']=');                 
      readln(a[i,j]);             
   end;     
writeln('Вывод матрицы');     
for var i:=1 to n do         
begin             
    for var j:=1 to m do                 
       write(a[i,j],' ');             
    writeln;         
end;     
s:=0;      
for var i:=1 to n do         
   for var j:=1 to m do           
begin                 
s:=s+a[i,j];           
end;   
p:=0;   
for var i:=1 to n do     
   for var j:=1 to m do       
      if a[i,j] mod 5 = 0   then       
begin             
inc(p);       
end;    
writeln('Сумма элементов - ',s);     
writeln('Кол-во элементов, кpатных 5 - ',p);
end.