Question

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) от кого и какого цеха пожертвования

Answer 1

В программе определяется значение максимального элемента массива (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