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

Составьте программу, которая заполняет одномерный целочисленный массив из 100 элементов случайным образом в диапазоне от 1 до 40 , выводит заполненный массив на экран, а затем находит минимальный элемент и номер ячейки, которые после нахождения выводятся на экран

👇
Ответ:
millykot2003
millykot2003
09.02.2021
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
writeln('исходный массив:');
var a:=ArrRandom(100,1,40).Println();
var k:=1;
foreach var item in a do if item=a.Min then break else inc(k);
writeln('минимальный элемент: a[',k,']=',a.Min());
end.
4,6(46 оценок)
Открыть все ответы
Ответ:
Jekils
Jekils
09.02.2021
Компьютерная графика - это область деятельности, в которой компьютеры наряду со специальным программным обеспечением используются в качестве инструмента, как для создания (синтеза) и редактирования изображений, так и для оцифровки визуальной информации, полученной из реального мира с целью дальнейшей её обработки и хранения.
В эпоху постнеомодерна, то есть в нашу с вами, растут требования не только к функциональности, но и к эстетическому наполнению продукции, следовательно, участие дизайнера в создании продуктов потребления становится не только обязательным, но и растёт. Особенно емкими для данного вида дизайнерского обеспечения являются ниши дизайна мебели, ландшафтного, архитектурного. Хоть креативный компонент дизайна трудно формализуем, тем не менее, есть возможность разгрузить дизайнера от рутинной работы средствами графического программного обеспечения. Развиваются направления web дизайна, дизайна интерфейсов программного обеспечения.
4,5(15 оценок)
Ответ:
bykvav
bykvav
09.02.2021
PascalABC.NET 3.2, сборка 1383 от 09.02.2017
Внимание! Если программа не работает, обновите версию!

Используем "жадный" алгоритм. Он не всегда дает минимальное общее количество купюр, но зато простой в понимании.

begin
  var k:=Arr(500,100,50,10,5,2,1); // массив с достоинствами купюр
  var s:=ReadInteger('Введите сумму:'); // сумма к оплате
  Writeln('Уплатить:');
  var i:=0;
  while s>0 do begin
    var p:=s div k[i];
    if p>0 then Writeln(p,' шт. достоинством ',k[i],' руб.');
    s:=s mod k[i]; i+=1
    end;
end.

Примеры
Введите сумму: 3794
Уплатить:
7 шт. достоинством 500 руб.
2 шт. достоинством 100 руб.
1 шт. достоинством 50 руб.
4 шт. достоинством 10 руб.
2 шт. достоинством 2 руб.

Введите сумму: 507
Уплатить:
1 шт. достоинством 500 руб.
1 шт. достоинством 5 руб.
1 шт. достоинством 2 руб.
4,4(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ