Регистрация
PYURAN
18.05.2023 14:11
Информатика
Есть ответ 👍

Хранящейся в этой памяти информация воспроизводится даст быстро

272
466
Посмотреть ответы 3

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

Софочкакошечка13
Софочкакошечка13
4,5(11 оценок)
Оперативная, встроенная, внутренняя
ivanovaizl
ivanovaizl
4,7(32 оценок)
Внешний носитель)в уме
алинтен
алинтен
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.

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