Паскаль! найти минимальное (min) и максимальное (max) значение среди 6 переменных (a, b, c, d, e, f)

Question

Информатика

Ритоша

21 сентября, 14:18

Паскаль! найти минимальное (min) и максимальное (max) значение среди 6 переменных (a, b, c, d, e, f)

+3

Ответы (1)

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

Трифон · Answer 1

Var

d, min, max, i: integer;

begin

readln (d) ;

min : = d;

max : = d;

for i : = 1 to 6 do

begin

readln (d) ;

if min > d then min : = d;

if max < d then max : = d;

end;

writeln ('max = ', max) ;

writeln ('min = ', min) ;

end.