
Вопрос задан 21.06.2023 в 16:33.
Предмет Информатика.
Спрашивает Kout Paul.
Нужно написать программу, где нужно ввести число N. Среди N чисел, которые введет пользователь,
нужно найти наибольшее число и сумму цифр этого число.

Ответы на вопрос

Отвечает Волощук Віталій.
program XieLian;
var n,max ,sum, i:integer;
var A: array [1..100] of integer;
begin
writeln('введите количество чисел');
readln(N);
if (n<=0) then
writeln('ошибка')
else
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
end;
writeln('введенная строка');
for i:=1 to n do
write(A[i]);
writeln;
max:=A[1];
for i:=1 to n do
if A[i]>max then
max:=A[i];
writeln(max,' -большее число');
sum := 0;
while max > 0 do
begin
sum := sum + max mod 10;
Max := max div 10;
end;
writeln(sum,' -сумма');
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Вы можете написать такую программу на Python. Вот пример:
python# Функция для вычисления суммы цифр числа
def сумма_цифр_числа(число):
сумма = 0
while число > 0:
сумма += число % 10
число //= 10
return сумма
# Запрашиваем у пользователя количество чисел (N)
N = int(input("Введите количество чисел: "))
# Инициализируем переменные для хранения наибольшего числа и суммы его цифр
максимальное_число = None
сумма_цифр_максимального = 0
# Запрашиваем у пользователя N чисел и находим наибольшее число и сумму его цифр
for i in range(N):
число = int(input(f"Введите число {i + 1}: "))
if максимальное_число is None or число > максимальное_число:
максимальное_число = число
сумма_цифр_максимального = сумма_цифр_числа(число)
# Выводим результат
print(f"Наибольшее число: {максимальное_число}")
print(f"Сумма цифр наибольшего числа: {сумма_цифр_максимального}")
Сначала программа запрашивает у пользователя количество чисел (N), затем запрашивает сами числа и находит наибольшее число и сумму его цифр. Результат выводится на экран.


Похожие вопросы
Топ вопросов за вчера в категории Информатика

Информатика 47

Информатика 33

Информатика 67

Информатика 18

Информатика 25

Информатика 563

Информатика 16
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili