Вопрос по информатике:
Нужно написать программу на PascalABC.
Вводится n чисел, найти максимальное двузначное среди них.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.11.2016 11:13
- Информатика
- remove_red_eye 8060
- thumb_up 22
Ответы и объяснения 1
Var
n,max,i,a : longint;
begin
readln(n); {количество чисел}
max:=0; {чтобы вывести 0 если нет двухзначных}
for i:=1 to n do
begin
readln(a); {хранить массив не надо т.к. он нигде не требуется}
if (a>9) and (amax)
then max:=a;
end;
if max>0
then writeln(max)
else writeln('нет двухзначных чисел')
end.
- 27.11.2016 15:35
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.