Дан одномерный целочисленный массив а, состоящий из n элементов, n - заданное натуральное число. упорядочить элементы массива по неубыванию. (программа +блок-схема)на языке qbasic
INPUT "n="; n DIM a(n) AS INTEGER RESTORE FOR i = 1 TO n READ a(i) NEXT i FOR i = 1 TO n - 1 mi = a(i): u = i FOR j = i TO n IF a(j) < mi THEN mi = a(j): u = j END IF NEXT j r = a(i): a(i) = mi: a(u) = r NEXT i FOR i = 1 TO n PRINT a(i); NEXT i END DATA 12,-3,34,2,76,0,-45,23,12,0,23,6
Техника безопасности в кабинете информатики Общие требования безопасности 1.К работе в кабинете информатики допускаются учащиеся инструктаж по охране труда и не имеющие противопоказаний по состоянию здоровья. 2.Учащиеся должны соблюдать правила поведения в кабинете информатики. 3.При работе в кабинете информатики возможно воздействие на человека следующих опасных и вредных факторов: от монитора: ультрафиолетовое, инфракрасное, электромагнитное и рентгеновское излучения; статическое электричество, блики и мерцание экрана; поражение электрическим током при работе без заземления, со снятой задней крышкой системного блока.
Из условий я не понял про нанизывание на нитку окружностей. Остальное сделал на языке Паскаль. На своём компьютере не проверял, т.к. данный язык у меня не установлен. На фото я укзал рисунок моего понимания условий задачи. - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - var a,b : integer; {описываем длины сторон} r,p : real; {описываем радиус и периметр} begin write ('Введите длину первой стороны прямоугольника: '); readln(a); write ('Введите длину второй стороны прямоугольника: '); readln(b); r:=(sqrt(a*a+b*b))/2; {находим радиус} r:=trunc(r*10000)/10000; {округляем до четырёх знаков после запятой} p:=(a+b)*2; {находим периметр прямоугольника}; writeln('Радиус окружности равен: ',r); writeln('Периметр прямоугольника равен: ',p); end.
DIM a(n) AS INTEGER
RESTORE
FOR i = 1 TO n
READ a(i)
NEXT i
FOR i = 1 TO n - 1
mi = a(i): u = i
FOR j = i TO n
IF a(j) < mi THEN
mi = a(j): u = j
END IF
NEXT j
r = a(i): a(i) = mi: a(u) = r
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i
END
DATA 12,-3,34,2,76,0,-45,23,12,0,23,6