< >

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

Ответы

Ответ дал: Kitsu
0

var max,i,k:integer;

begin

for i:=1 to 12 do begin

readln(k);

if k>max then max:=k;

end;

writeln(k);

end.

Похожие вопросы
Другие предметы
2 года назад
из чего состоит воздух.
Русский язык
2 года назад
Способы образования слов: Пещера Впечатление Неделя Ветчина ( как на примере: билетер <-- -билет- + суф. -ёр-  =.> суффиксальный)
Физика
7 лет назад
определите работу сил электрического поля по перемещению заряда в 6мКл между двумя точками с разность потенциалов 8кВ
ОБЖ
7 лет назад
1.Характеристика особенности взрыва 2.Пожар и его возникновение 3.Классификация пожаров ПОМОГИТЕ ПЖ!!
Химия
10 лет назад
Определите объем (н.у.) аммиака, который можно получить из азота массой 280 кг.
Математика
10 лет назад
У большой обезьяны на 6 кокосовых орехоы больше, чем у маленькой. Сколько орехов отдала большая обезьяна маленькой, если орехов у них стало поровну?
Математика
10 лет назад
1)0,4:3 3/7(три целых три седьмых) = х:2,5 (решите по этапно)   2)длина прямоугольника 56см, что составляет 78 длины. найти ширину прямоугольн. 
Алгебра
10 лет назад
решите уравнение 7x2+6x+1=0