С клавиатуры вводятся 12 чисел . Найти максимальные.
С клавиатуры вводятся 12 чисел . Найти максимальные.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы