В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
lina28052003
lina28052003
20.09.2022 18:05 •  Информатика

10. в москве на красной площади установлен памятник минину и . российская государственная библиотека оцифровала документ « описание монумента», который состоит из двух частей: 1) текстовая часть; 2) именной список лиц, участвовавших в добровольных приношениях на сооружение монумента. сотрудники коммерческого банка, объехав все цеха санкт-петербурга, составили сводную ведомость пожертвований. обработаем часть собранной информации с программы. в таблице dat представлены данные о размере добровольных пожертвований на строительство памятника от цеховых старшин санкт-петербурга. • dat[1] — от векса (фельдшерный цех); • dat[2] — от феттера (перчаточный); • dat[3] — от крона (позументный); • dat[4] — от гейдера (токарный); • dat[5] — от вилкеса (парикмахерский); • dat[6] — от адлера (фонарный) и т. д. определите, что будет напечатано в результате работы программы, и какую информацию мы получим: program p1; var i, n: integer; k: real; const dat: array[1..36] of real=(5, 5, 5, 5, 10, 5, 25, 10, 40, 30, 5, 40, 10, 6, 15, 7, 5, 10, 20, 5, 10, 15, 5, 35, 5, 2.5, 3, 2.5, 6, 50, 5, 3, 10, 5, 25, 15); begin k: =0; for i: =1 to 36 do if dat[i]> k then begin k: =dat[i]; n: =i; end; writeln(’k=’,k: 5: 2, ’n=’,n); readln; end. 1) k=50.00 n=30 2) наибольшая величина пожертвования 3) минимальная величина пожертвования 4) k=30.00 n=50 5) общая сумма пожертвований 6) от кого и какого цеха пожертвования

Показать ответ
Ответ:
никуля40
никуля40
07.10.2020 17:35
В программе определяется значение максимального элемента массива (k) и номер этого элемента (n):
k:=0;
for i:=1 to 36 do
 if Dat[i]>k then begin k:=Dat[i]; n:=i; end;
На экран будет выведено k=30.00 n=50
ответ: 4) k=30.00 n=50
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота