Регистрация
Neznakomka111111
02.06.2023 21:09
Информатика
Есть ответ 👍

Нужно написать программу, где нужно ввести число N. Среди N чисел, которые введет пользователь, нужно найти наибольшее число и сумму цифр этого число.

227
468
Посмотреть ответы 2

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

алинтен
алинтен
4,5(31 оценок)

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.

ZeBrAiL2TW
ZeBrAiL2TW
4,8(55 оценок)

Задать в строку поиска во Только так

Объяснение:

Популярно: Информатика