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

longer123 longer123    1   21.03.2019 08:40    1

Ответы
7773530 7773530  26.05.2020 12:40

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика