var a: array [1..3] of integer;
min, max, i: integer;
Begin
For i:= 1 to 3 do readln(a[i]);
max:= a[1];
min:= a[3];
For i:= 1 to 3 do Begin
if a[i] > max then max:= a[i]
else if a[i] < min then min := a[i];
end;
Write(min,' ',max );
end.
Объяснение:
Решение на Паскале, через массив, методом перебора. (изначально максимуму и минимуму присвоено произвольное значение)
var a: array [1..3] of integer;
min, max, i: integer;
Begin
For i:= 1 to 3 do readln(a[i]);
max:= a[1];
min:= a[3];
For i:= 1 to 3 do Begin
if a[i] > max then max:= a[i]
else if a[i] < min then min := a[i];
end;
Write(min,' ',max );
end.
Объяснение:
Решение на Паскале, через массив, методом перебора. (изначально максимуму и минимуму присвоено произвольное значение)