Question

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

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

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

0b7bd4cff79a2c714306c7cee7a88ae5.pas

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

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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