75

С клавиатуры вводятся 12 чисел. Найти максимальные.

28 февраля 2023

С клавиатуры вводятся 12 чисел. Найти максимальные.

категория: информатика



83

var max,i,k: integer; beginfor i: =1 to 12 do beginreadln (k); if k>max then max: =k; end; writeln (k); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...