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

July 2021 2 27 Report

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

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

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

Plugin 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.

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

2 votes Thanks 1

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

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

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

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

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

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

2 votes Thanks 3

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

Answers & Comments

tex reshenie sfotkat na telefon

kto reshit pervym sdelayu ego reshenie luchshimdan tekst vklyuchayushij russkie bukvy a

srochno vysokij ballpervomu luchshij otvetpodschitat skolko raz v tekstovoj str

рекомендуемые вопросы

Helpful Links

Helpful Social