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

Задача 8. За рейтинговою системою оцінка визначається таким
чином: якщо сумарний бал учня становить не менш як 92% від
максимального, то виставляється оцінка 12, якщо не нижче за
70 %, то виставляється оцінка 8, якщо ж не нижче за 50 %, то-
оцінка 5, в інших випадках – оцінка 2. Визначити оцінку уч-
ня, якщо він набрав N балів, а максимальне значення сумарно-
го балу становить S.

👇
Открыть все ответы
Ответ:
Frank9110
Frank9110
13.08.2022

uses GraphABC;

begin

SetWindowWidth(800);     //ширина окна программы

SetWindowHeight(600);    //высота окна программы

SetPenWidth(5);          //толщина пера

setpencolor(clblue);

Rectangle(1, 600, 200,450);

Rectangle(150, 300, 200,450);

Line(1, 450, 150,450);

Line(150,450, 75,150);

Line(75,150, 1, 450 );

Line(200, 197, 400,197);

Line(400, 197, 300,107);

Line(300, 107, 200,197);

Rectangle(200, 600, 400,200); //дом

Rectangle(400, 600, 600,450); //дом

Rectangle(450, 300, 400,450); //дом

Line(447, 447, 600,447);

Line(600,447, 520,150);

Line(520,150, 447, 447);

Circle(300,300,50);

Circle(520,130,25);

Circle(75,130,25);

end.

4,7(2 оценок)
Ответ:
butkovskaal
butkovskaal
13.08.2022
// PascalABC.NET 3.2, сборка 1411 от 23.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
  Writeln('Последнее вхождение минимального элемента: ',a.LastIndexMin+1);
  var mx:=a.Max;
  Writeln('Количество элементов, равных максимальному: ',
      a.Where(x->x=mx).Count)
end.

Пример
n= 20
10 10 -10 2 -8 9 8 -8 4 -5 10 -9 9 -2 1 7 -4 9 -10 7
Последнее вхождение минимального элемента: 19
Количество элементов, равных максимальному: 3

Пояснения
ArrRandom(ReadInteger('n='),-10,10); запрашиваем количество элементов n в массиве, а затем создаем целочисленный массив заполняем его случайными целыми числами на интервала [-10;10]

a.Println; выводим содержимое массива а на монитор

a.LastIndexMin+1 находим в массиве a позицию последнего минимального элемента. Счет позиций идет с нуля, поэтому добавляем единицу.

var mx:=a.Max; находим в массиве а максимальный элемент и запоминаем его в mx

a.Where(x->x=mx).Count) выбираем из массива а элементы, равные mx и подсчитываем их количество
4,5(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ