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

1. Задание Паскаль a. Создать целыми числами массив из 10 элементов;
b. Выделить все элементы массива случайные значения в диапазоне от -10 до 10;
c. Вывести на экран все положительные значения;
d. Вывести на экран первый отрицательный и первый положительный стоимость;
e. Поменять местами наименьший и наибольший значения.

👇
Открыть все ответы
Ответ:
DixonVeit
DixonVeit
21.07.2021

weight = int(input())

if weight <= 60:

   print("Легкий вес")

elif 60 < weight < 65:

   print("Первый полусредний вес")

elif 64 < weight < 70:

   print("Полусредний вес")

Объяснение:

weight = int(input()) # Вводим вес с клавиатуры

if weight <= 60: # Если значение переменной weight ≤ 60

   print("Легкий вес") # Выводим сообщение

elif 60 < weight < 65: # Иначе если значение переменной 60 < weight < 65

   print("Первый полусредний вес") # Выводим сообщение

elif 64 < weight < 70: # Иначе если значение переменной 64 < weight < 70

   print("Полусредний вес") # Выводим сообщение

4,4(91 оценок)
Ответ:
konox2012
konox2012
21.07.2021

begin

 var quantity := 0;

 var amount := 0;

 var A := readinteger();

 var B := readinteger();

 for var i := A to B do

 begin

   if (i mod 3 = 0) and (i mod 10 <> 0) then

   begin

     inc(amount, i);

     inc(quantity);

   end;

 end;

 writeln(amount / quantity:0:2);

end.

Объяснение:

begin  // Начало программы

 var quantity := 0;  // Объявление переменной, хранящей количество элементов, подходящих под условие

 var amount := 0;  // Объявление переменной, хранящей сумму элементов, подходящих под условие

 var A := readinteger();  // Считывание числа А с клавиатуры

 var B := readinteger();  // Считывание числа В с клавиатуры

 for var i := A to B do  // Идём от А до В

 begin  // Начало цикла

   if (i mod 3 = 0) and (i mod 10 <> 0) then  // Если значение переменной i делится на 3 без остатка И значение переменной i не заканчивается на 0

   begin  // Начало условного оператора

     inc(amount, i);  // Прибавляем к переменной amount значение переменной i

     inc(quantity);  // Прибавляем к переменной quantity единицу

   end;  // Конец условного оператора

 end;  // Конец цикла

 writeln(amount / quantity:0:2);  // Вывод среднего арифметического с точностью до 2 знаков после запятой

end. // Конец программы

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