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