М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Siyara1
Siyara1
24.04.2021 23:00 •  Информатика

Дан одномерный целочисленный массив а, состоящий из n элементов, n - заданное натуральное число. упорядочить элементы массива по неубыванию. (программа +блок-схема)на языке qbasic

👇
Ответ:
strebkov222
strebkov222
24.04.2021
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
4,4(30 оценок)
Открыть все ответы
Ответ:
Техника безопасности в кабинете информатики 
Общие требования безопасности 1.К работе в кабинете информатики допускаются учащиеся инструктаж по охране труда и не имеющие противопоказаний по состоянию здоровья. 2.Учащиеся должны соблюдать правила поведения в кабинете информатики. 
3.При работе в кабинете информатики возможно воздействие на человека следующих опасных и вредных факторов: от монитора: ультрафиолетовое, инфракрасное, электромагнитное и рентгеновское излучения; статическое электричество, блики и мерцание экрана; поражение электрическим током при работе без заземления, со снятой задней крышкой системного блока. 
4,7(18 оценок)
Ответ:
daha561
daha561
24.04.2021
Из условий я не понял про нанизывание на нитку окружностей. Остальное сделал на языке Паскаль. На своём компьютере не проверял, т.к. данный язык у меня не установлен. На фото я укзал рисунок моего понимания условий задачи.
- - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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.

Написать программу вводит две стороны прямоугольника (целые числа). определить радиус окружности (с
4,6(73 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ