Высокий балл, первому лучший ответВ массиве содержатся целые числа. Посчитать количество...

Question

Высокий балл, первому лучший ответ

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

Подкорректировать код сделать правильным т.е. в коде не считает сумму цифр и все вроде.
Файл ниже.

Comments

Подсчет суммы чисел чего?

---

(сумма цифр) которых кратна семи

---

Так я тебе уже написал отвт

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.


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

Comments

Либо вы гений, либо вы не правильно поняли задачу, где я склоняюсь ко 2 мнению.

---

отмечаю лучшим так как мне уже сегодня через 3 часа здавать

---

а это норма, что задача на вывод кол-ва двухзначных чисел, сумма цифр которых кратна 7, а этот индивид во первых решает для всех чисел, и у него кратно число, а не сумма цифр?

---

это называется, "кто быстрее", ибо лишь бы получить баллы за решение, а правильно решил или нет - это совсем не важно

---

Я КАК И НАПИСАНО В ВОПОСЕ к уже рабочему коду прикрутил цикл считающий сколько цифр кратно 7

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<br>   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. Надеюсь на благодарность и лучший ответ.

Comments

спасибо, отметил лучший тот потому что он первый показался мне в глаза, у тебя кстати верно молор