Question

Высокий балл, первому лучший ответВ массиве содержатся целые числа. Посчитать количество двузначных элементов массива, сумма цифр которых кратна семи. Предусмотреть случай когда таких чисел в массиве нет.Подкорректировать код сделать правильным т.е. в коде не считает сумму цифр и все вроде.Файл ниже.

Answer 1

Uses crt;
var a:array[1..100] of integer;
i,n,k:integer;
begin
   clrscr;
   write('Кол-во элементов: ');
   readln(n);
   writeln('Введи элементы:');
   for i:=1 to n do
      begin
         write(i,' элемент = ');
         readln(a[i]);
      end;
   writeln(#10,'Положительные элементы кратные 7:');
   for i:=1 to n do
     if (a[i] mod 7 = 0) and (a[i]>0)
      then
       begin
        write(a[i]:4);
        k:=k+a[i];
       end;
writeln();
writeln('Сумма положительных элементов кратных 7: ',k);
end.


Надеюсь на "Лучший ответ"

Answer 2

Var a:array[1..100] of integer;
i,n,k,s,p:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do 
   begin 
   p:=a[i]; 
   s:=0; 
   if (p>9) and (p<100) then
   while p<>0 do 
      begin 
      s:=s+p mod 10; 
      p:= div 10; 
      end; 
   if (s mod 7 = 0) and (a[i]>0) then inc (k); 
   end;
write (k);
end.

P.S. Надеюсь на благодарность и лучший ответ.