Max:=1; min:=1; for k:=2 to n do begin if a[k]>a[max] then max:=k; if a[k] < a[min] then min:=k end; writeln ('max=', a[max]); writeln ('min=', a[min]); if max < min then writeln ('max раньше') else writeln ('min раньше')
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
