var a: array [1..100] of integer;
i,max,min: integer;
begin
for i: = 1 to 100 do
begin
a[i]: = random(50)-25;
write(a[i]: 5);
end;
min: = a[1];
max: = a[1];
for i: = 1 to 100 do
begin
if a[i] > max then max: =a[i];
end;
for i: = 1 to 100 do
begin
if a[i] < min then min: =a[i];
end;
writeln;
writeln('min = ',min);
writeln('max = ',max);
writeln('min + max = ',min + max);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Встене имеется прямоугольное отверстие с длинами сторон x и y. при каком условии труба, сечением которой является круг радиуса r, пройдет в это отверстие, если длина трубы превышает x+y?