В наличие 12 предметов, нужно найти самый тяжелый и самый легкий предмет? Составьте программу на языке Pascal

Question

Информатика

Карл

15 марта, 04:25

В наличие 12 предметов, нужно найти самый тяжелый и самый легкий предмет? Составьте программу на языке Pascal

+3

Ответы (1)

Знаете ответ на вопрос?

Андроныч · Answer 1

Var i, max, min: integer; mas:array[1 ... 12] of integer; begin for i : = 1 to 12 do read (mas[i]) ; max:=mas[1]; min:=mas[1]; for i:=1 to 12 do begin if mas[i] > max then max:=mas[i]; if mas[i] < min then min:=mas[i]; end; write (max,' ', min) ; end.