1. Ста­тья, на­бран­ная на ком­пью­те­ре, со­дер­жит 48 стра­ниц, на каж­дой стра­ни­це 40 строк, в каж­дой стро­ке 64 сим­во­ла. Опре­де­ли­те раз­мер ста­тьи в ко­ди­ров­ке КОИ-8, в ко­то­рой каж­дый сим­вол ко­ди­ру­ет­ся 8 би­та­ми.

1) 120 Кбайт

2) 240 Кбайт

3) 1920 байт

4) 960 байт

2. Для ка­ко­го из при­ведённых чисел ложно вы­ска­зы­ва­ние: НЕ (число > 30) ИЛИ (число чётное)?

1) 28

2) 34

3) 17

4) 45

3. Между населёнными пунк­та­ми А, В, С, D, Е по­стро­е­ны до­ро­ги, про­тяжённость ко­то­рых (в ки­ло­мет­рах) при­ве­де­на в таб­ли­це:

Опре­де­ли­те длину крат­чай­ше­го пути между пунк­та­ми А и E. Пе­ре­дви­гать­ся можно толь­ко по до­ро­гам, про­тяжённость ко­то­рых ука­за­на в таб­ли­це.

1) 6

2) 7

3) 8

4) 9

4. В не­ко­то­ром ка­та­ло­ге хра­нил­ся файл Хри­зан­те­ма.doc, имев­ший пол­ное имя

D:\2013\Осень\Хри­зан­те­ма.doc.

В этом ка­та­ло­ге со­зда­ли под­ка­та­лог Но­ябрь и файл Хри­зан­те­ма.doc пе­ре­ме­сти­ли в со­здан­ный под­ка­та­лог. Ука­жи­те пол­ное имя этого файла после пе­ре­ме­ще­ния.

1) D:\2013\Осень\Но­ябрь\Хри­зан­те­ма. doc

2) D:\Но­ябрь\Хри­зан­те­ма.doc

3) D:\2013\Осень\Хри­зан­те­ма.doc

4) D:\2013\Но­ябрь\Хри­зан­те­ма.doc

5. Дан фраг­мент элек­трон­ной таб­ли­цы:

	A	B	C	D
1	3	4	2	5
2		=А1*3	=В1-1	=D1-2

Какая из фор­мул, при­ведённых ниже, может быть за­пи­са­на в ячей­ке А2, чтобы по­стро­ен­ная после вы­пол­не­ния вы­чис­ле­ний диа­грам­ма по зна­че­ни­ям диа­па­зо­на ячеек A2:D2 со­от­вет­ство­ва­ла ри­сун­ку?

1) =D1*2

2) =D1-C1

3) =В1-А1

4) =В1/С1

6. Ис­пол­ни­тель Чертёжник пе­ре­ме­ща­ет­ся на ко­ор­ди­нат­ной плос­ко­сти, остав­ляя след в виде линии. Чертёжник может вы­пол­нять ко­ман­ду Сме­стить­ся на (a, b) (где a, b — целые числа), пе­ре­ме­ща­ю­щую Чертёжника из точки с ко­ор­ди­на­та­ми (x, у) в точку с ко­ор­ди­на­та­ми (x + а, у + b). Если числа a, b по­ло­жи­тель­ные, зна­че­ние со­от­вет­ству­ю­щей ко­ор­ди­на­ты уве­ли­чи­ва­ет­ся; если от­ри­ца­тель­ные, умень­ша­ет­ся.

На­при­мер, если Чертёжник на­хо­дит­ся в точке с ко­ор­ди­на­та­ми (4, 2), то ко­ман­да Сме­стить­ся на (2, −3) пе­ре­ме­стит Чертёжника в точку (6, −1).

За­пись

По­вто­ри k раз

Ко­ман­да1 Ко­ман­да2 Ко­ман­даЗ

Конец

озна­ча­ет, что по­сле­до­ва­тель­ность ко­манд Ко­ман­да1 Ко­ман­да2 Ко­ман­даЗ по­вто­рит­ся k раз.

Чертёжнику был дан для ис­пол­не­ния сле­ду­ю­щий ал­го­ритм:

По­вто­ри 7 paз

Сме­стить­ся на (−1, 2) Сме­стить­ся на (−2, 2) Сме­стить­ся на (4, −5) Конец

Ка­ко­вы ко­ор­ди­на­ты точки, с ко­то­рой Чертёжник на­чи­нал дви­же­ние, если в конце он ока­зал­ся в точке с ко­ор­ди­на­та­ми (1, 1)?

1) (6, 8)

2) (−6, 8)

3) (8, −6)

4) (8, 6)

7. Ре­бя­та иг­ра­ли в раз­вед­чи­ков и за­ко­ди­ро­ва­ли со­об­ще­ние при­ду­ман­ным шиф­ром. В со­об­ще­нии при­сут­ству­ют толь­ко буквы из при­ведённого фраг­мен­та ко­до­вой таб­ли­цы.

С	М	А	О	Р	К
ΛΛΩ	ΛΩ	ΩΩ	ΩΩΛ	ΛΩΛ	ΩΛΩ

Опре­де­ли­те, какое со­об­ще­ние за­ко­ди­ро­ва­но в строч­ке

ΛΩΩΩΛΛΩΛΛΛΩ

В от­ве­те за­пи­ши­те по­сле­до­ва­тель­ность букв без за­пя­тых и дру­гих зна­ков пре­пи­на­ния.

8. В ал­го­рит­ме, за­пи­сан­ном ниже, ис­поль­зу­ют­ся пе­ре­мен­ные a и b. Сим­вол «:=» обо­зна­ча­ет опе­ра­тор при­сва­и­ва­ния, знаки «+», «-», «*» и «/» — со­от­вет­ствен­но опе­ра­ции сло­же­ния, вы­чи­та­ния, умно­же­ния и де­ле­ния. Пра­ви­ла вы­пол­не­ния опе­ра­ций и по­ря­док дей­ствий со­от­вет­ству­ют пра­ви­лам ариф­ме­ти­ки. Опре­де­ли­те зна­че­ние пе­ре­мен­ной a после вы­пол­не­ния ал­го­рит­ма:

а := 17
b := 23
b := а + b + 1
а := b + а

В от­ве­те ука­жи­те одно целое число — зна­че­ние пе­ре­мен­ной a.

9. За­пи­ши­те зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел s, k s := 8 нц для k от 3 до 8 s := s + 8 кц вывод s кон	DIM k, s AS INTEGERs = 8 FOR к = 3 TO 8 s = s + 8 NEXT k PRINT s	Var s,k: integer; Begin s := 8; for k := 3 to 8 do s := s + 8; writeln(s); End.

10. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] – ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] – во вто­ром и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач     цел­таб Dat[1:11]     цел k, m     Dat[1] := 20; Dat[2] := 25     Dat[3] := 19; Dat[4] := 25     Dat[5] := 26; Dat[6] := 22     Dat[7] := 24; Dat[8] := 28     Dat[9] := 26; Dat[10] := 21     Dat[11] := 27     m := 0     нц для k от 1 до 11         если Dat[k] < 25 то             m := m + 1         все     кц     вывод m кон	DIM Dat(11) AS INTEGER DIM k,m AS INTEGER Dat(1) = 20: Dat(2) = 25 Dat(3) = 19: Dat(4) = 25 Dat(5) = 26: Dat(6) = 22 Dat(7) = 24: Dat(8) = 28 Dat(9) = 26: Dat(10) = 21 Dat(11) = 27 m = 0 FOR k = 1 TO 11 IF Dat(k) < 25 THEN m = m + 1 END IF NEXT k PRINT m	Var k, m: integer;     Dat: array[1..11] of integer; Begin     Dat[1] := 20; Dat[2] := 25;     Dat[3] := 19; Dat[4] := 25;     Dat[5] := 26; Dat[6] := 22;     Dat[7] := 24; Dat[8] := 28;     Dat[9] := 26; Dat[10] := 21;     Dat[11] := 27;     m := 0;     for k := 1 to 11 do         if Dat[k] < 25 then             begin                 m := m + 1             end;         writeln(m) End.

11. На ри­сун­ке изоб­ра­же­на схема дорог, свя­зы­ва­ю­щих го­ро­да A, B, C, D, E, F, G. По каж­дой до­ро­ге можно дви­гать­ся толь­ко в одном на­прав­ле­нии, ука­зан­ном стрел­кой. Сколь­ко су­ще­ству­ет раз­лич­ных путей из го­ро­да A в город D?

12. Ниже в таб­лич­ной форме пред­став­лен фраг­мент базы дан­ных «От­прав­ле­ние по­ез­дов даль­не­го сле­до­ва­ния»:

Пункт на­зна­че­ния	Ка­те­го­рия по­ез­да	Время в пути	Вок­зал
Адлер	фир­мен­ный	29:46	Ка­зан­ский
Адлер	ско­рый	38:35	Кур­ский
Адлер	фир­мен­ный	25:30	Ка­зан­ский
Адлер	ско­рый	39:13	Кур­ский
Алма-Ата	ско­рый	102:22	Па­ве­лец­кий
Ам­стер­дам	ско­рый	36:40	Бе­ло­рус­ский
Анапа	пас­са­жир­ский	35:37	Бе­ло­рус­ский
Ар­хан­гельск	ско­рый	20:46	Яро­слав­ский
Ар­хан­гельск	пас­са­жир­ский	46:30	Яро­слав­ский
Ар­хан­гельск	ско­рый	21:25	Бе­ло­рус­ский
Аста­на	ско­рый	58:00	Ка­зан­ский
Аст­ра­хань	ско­рый	27:56	Па­ве­лец­кий

Сколь­ко за­пи­сей в дан­ном фраг­мен­те удо­вле­тво­ря­ют усло­вию

(Ка­те­го­рия по­ез­да = «ско­рый») ИЛИ (Вок­зал = «Ка­зан­ский»)?

В от­ве­те ука­жи­те одно число — ис­ко­мое ко­ли­че­ство за­пи­сей.

13. Пе­ре­ве­ди­те дво­ич­ное число 1110101 в де­ся­тич­ную си­сте­му счис­ле­ния.

14. У ис­пол­ни­те­ля Квад­ра­тор две ко­ман­ды, ко­то­рым при­сво­е­ны но­ме­ра:

1. воз­ве­ди в квад­рат
2. при­бавь 3

Пер­вая из них воз­во­дит число на экра­не во вто­рую сте­пень, вто­рая — при­бав­ля­ет к числу 3. Со­ставь­те ал­го­ритм по­лу­че­ния из числа 1 числа 262, со­дер­жа­щий не более 5 ко­манд. В от­ве­те за­пи­ши­те толь­ко но­ме­ра ко­манд. В от­ве­те за­пи­ши­те толь­ко но­ме­ра ко­манд. (На­при­мер, 11221 — это ал­го­ритм: воз­ве­ди в квад­рат, воз­ве­ди в квад­рат, при­бавь 3, при­бавь 3, воз­ве­ди в квад­рат, ко­то­рый пре­об­ра­зу­ет число 2 в 484.) Если таких ал­го­рит­мов более од­но­го, то за­пи­ши­те любой из них.

15. Файл раз­ме­ром 64 Кбайт пе­ре­даётся через не­ко­то­рое со­еди­не­ние со ско­ро­стью 1024 бит в се­кун­ду. Опре­де­ли­те раз­мер файла (в Кбайт), ко­то­рый можно пе­ре­дать за то же время через дру­гое со­еди­не­ние со ско­ро­стью 256 бит в се­кун­ду. В от­ве­те ука­жи­те одно число — раз­мер файла в Кбайт. Еди­ни­цы из­ме­ре­ния пи­сать не нужно.

16. Не­ко­то­рый ал­го­ритм из одной це­поч­ки сим­во­лов по­лу­ча­ет новую це­поч­ку сле­ду­ю­щим об­ра­зом. Сна­ча­ла вы­чис­ля­ет­ся длина ис­ход­ной це­поч­ки сим­во­лов. Если она нечётна, то в ис­ход­ной це­поч­ке сим­во­лов уда­ля­ет­ся сред­ний сим­вол, а если чётна, то в конец це­поч­ки до­бав­ля­ет­ся сим­вол 2. В по­лу­чен­ной стро­ке каж­дая цифра за­ме­ня­ет­ся на сле­ду­ю­щую (0 за­ме­ня­ет­ся на 1, 1 — на 2, и т. д., а 9 за­ме­ня­ет­ся на 0).

По­лу­чив­ша­я­ся таким об­ра­зом це­поч­ка яв­ля­ет­ся ре­зуль­та­том ра­бо­ты ал­го­рит­ма.

На­при­мер, если ис­ход­ной це­поч­кой была це­поч­ка 234, то ре­зуль­та­том ра­бо­ты ал­го­рит­ма будет це­поч­ка 35, а если ис­ход­ной це­поч­кой была 56, то ре­зуль­та­том ра­бо­ты ал­го­рит­ма будет це­поч­ка 673. Дана це­поч­ка сим­во­лов 562341. Какая це­поч­ка сим­во­лов по­лу­чит­ся, если к дан­ной це­поч­ке при­ме­нить опи­сан­ный ал­го­ритм два­жды (то есть при­ме­нить ал­го­ритм к дан­ной це­поч­ке, а затем к ре­зуль­та­ту вновь при­ме­нить ал­го­ритм)?

17. До­ступ к файлу color.gif, на­хо­дя­ще­му­ся на сер­ве­ре box.net, осу­ществ­ля­ет­ся по про­то­ко­лу ftp. Фраг­мен­ты ад­ре­са файла за­ко­ди­ро­ва­ны бук­ва­ми от А до Ж. За­пи­ши­те по­сле­до­ва­тель­ность этих букв, ко­ди­ру­ю­щую адрес ука­зан­но­го файла в сети Ин­тер­нет.

A) ftp

Б) /

B) box.

Г) color

Д) net

Е) .gif

Ж) ://

18. В таб­ли­це при­ве­де­ны за­про­сы к по­ис­ко­во­му сер­ве­ру. Для каж­до­го за­про­са ука­зан его код — со­от­вет­ству­ю­щая буква от А до Г. Рас­по­ло­жи­те коды за­про­сов слева на­пра­во в по­ряд­ке воз­рас­та­ния ко­ли­че­ства стра­ниц, ко­то­рые нашёл по­ис­ко­вый сер­вер по каж­до­му за­про­су. По всем за­про­сам было най­де­но раз­ное ко­ли­че­ство стра­ниц. Для обо­зна­че­ния ло­ги­че­ской опе­ра­ции «ИЛИ» в за­про­се ис­поль­зу­ет­ся сим­вол «|», а для ло­ги­че­ской опе­ра­ции «И» — «&»:

Код	За­прос
А	(Тол­стой | рас­ска­зы) & по­ве­сти
Б	Тол­стой & по­ве­сти
В	Чехов & по­ве­сти & Тол­стой & рас­ска­зы
Г	Тол­стой | рас­ска­зы | по­ве­сти

19. В элек­трон­ную таб­ли­цу за­нес­ли дан­ные о те­сти­ро­ва­нии уче­ни­ков. Ниже при­ве­де­ны пер­вые пять строк таб­ли­цы:

	A	B	C	D
1	округ	фа­ми­лия	пред­мет	балл
2	C	Уче­ник 1	об­ще­ст­во­зна­ние	246
3	В	Уче­ник 2	не­мец­кий язык	530
4	Ю	Уче­ник 3	рус­ский язык	576
5	СВ	Уче­ник 4	об­ще­ст­во­зна­ние	304

В столб­це А за­пи­сан округ, в ко­то­ром учит­ся уче­ник; в столб­це В — фа­ми­лия; в столб­це С — лю­би­мый пред­мет; в столб­це D — те­сто­вый балл. Всего в элек­трон­ную таб­ли­цу были за­не­се­ны дан­ные по 1000 уче­ни­кам.

ЗАДАЧИ НА СОСТАВЛЕНИЕ УРАВНЕНИЙ (5 КЛАСС)

1. Света задумала число, умножила его на 4 и к произведению прибавила 8. В результате она получила 60. Какое число задумала Света?
2. В одной корзине в 6 раз меньше яблок, чем в другой. Сколько яблок в каждой корзине, если в двух корзинах 98 яблок?
3. В двух залах кинотеатра 460 мест. Сколько мест в большом зале, если известно, что в нём в 3 раза больше мест, чем в малом зале?
4. В школе 900 учащихся. Сколько учащихся в начальных, средних и старших классах, если в начальных классах их в 3 раза больше, чем в старших, и в 2 раза меньше, чем в средних?
5. Площадь кухни в 3 раза меньше площади комнаты, поэтому для ремонта пола кухни потребовалось на 24 м² линолеума меньше, чем для комнаты. Какова площадь кухни?
6. Одна сторона прямоугольника в 4 раза меньше другой. Чему равны длина и ширина прямоугольника, если его периметр равен 70 см?
7. На пруду плавали белые и серые утки, причём серых было в 3 раза больше, чем белых. После того, как на пруд прилетели 5 лебедей, то птиц всего оказалось 29. Сколько серых уток плавало на пруду?
8. Мальчик и девочка рвали в лесу орехи. Всего они сорвали 120 штук. Девочка сорвала в два раза меньше мальчика. Сколько орехов было у мальчика и девочки в отдельности.
9. Мороженое содержит 5 частей воды, 2 части молочного жира и 3 части сахара. Сколько надо воды, молочного жира и сахара для приготовления 2 кг мороженого?            

Тренажер "Показательные неравенства"

1. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве самолётов, от­прав­ля­ю­щих­ся из аэро­пор­та го­ро­да на юг в пер­вой де­ка­де ав­гу­ста (Dat[1] — ко­ли­че­ство самолётов пер­во­го числа, Dat[2] — ко­ли­че­ство самолётов вто­ро­го числа и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Dat[1:10] цел k, m, day Dat[1] := 2 Dat[2] := 2 Dat[3] := 3 Dat[4] := 3 Dat[5] := 2 Dat[6] := 2 Dat[7] := 5 Dat[8] := 5 Dat[9] := 6 Dat[10] := 6 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] =< m то m:= Dat[k] day := k все КЦ вывод day КОН	DIM Dat(10) AS INTEGER Dat[1] = 2 Dat[2] = 2 Dat[3] = 3 Dat[4] = 3 Dat[5] = 2 Dat[6] = 2 Dat[7] = 5 Dat[8] = 5 Dat[9] = 6 Dat[10] = 6 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) =< m THEN m = Dat(k) day = k END IF NEXT k PRINT day END	Var k, m, day: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 2; Dat[3] := 3; Dat[4] := 3; Dat[5] := 2; Dat[6] := 2; Dat[7] := 5; Dat[8] := 5; Dat[9] := 6; Dat[10] := 6; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] =< m then begin m:= Dat[k]; day := k; end; write(day); End.

За­да­ние 10 № 531

2. Со­труд­ник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу Tem (Tem[1] — тем­пе­ра­ту­ра, по­лу­чен­ная в ре­зуль­та­те пер­во­го из­ме­ре­ния, Tem[2] — вто­ро­го и т. д.).

Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Tem[1:12] цел k, b b := 0 Tem[1] := 22; Tem[2] := 25 Tem[3] := 20; Tem[4] := 18 Tem[5] := 16; Tem[6] := 14 Tem[7] := 20; Tem[8] := 23 Tem[9] := 17; Tem[10] := 19 Tem[11] := 20; Tem[12] := 21 нц для k от 1 до 12 если Tem[k] < 19 то b := b + Tem[k] все кц вывод b кон	DIM Tem(12) AS INTEGER DIM k,b AS INTEGER b = 0 Tem(1)= 22: Tem(2)= 25 Tem(3)= 20: Tem(4) = 18 Tem(5)= 16: Tem(6)= 14 Tem(7)= 20: Tem(8)= 23 Tem(9)= 17: Tem(10)= 19 Tem(11)= 20: Tem(12)= 21 FOR k = 1 TO 12 IF Tem(k) < 19 THEN b = b + Tem[k] END IF NEXT k PRINT b	Var k, b: integer; Tem: array[1..12] of integer; Begin b := 0; Tem[1] := 22; Tem[2] := 25; Tem[3] := 20; Tem[4] := 18; Tem[5] := 16; Tem[6] := 14; Tem[7] := 20; Tem[8] := 23; Tem[9] := 17; Tem[10] := 19; Tem[11] := 20; Tem[12] := 21; For k := 1 to 12 Do If Tem[k] < 19 Then b := b + Tem[k]; Writeln(b); End.

За­да­ние 10 № 909

3. В таб­ли­це Ves хра­нят­ся дан­ные о весе в ки­ло­грам­мах по груп­пе уча­щих­ся спор­тив­ной школы (Ves[1] — вес пер­во­го уча­ще­го­ся, Ves[2] — вес вто­ро­го уча­ще­го­ся и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках:

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Ves [1:14] цел i, n Ves[1]:= 25; Ves[2]:= 21; Ves[3]:= 23; Ves[4]:= 28; Ves[5]:= 30; Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28; Ves[9]:= 25; Ves[10]:= 28; Ves[11]:= 30; Ves[12]:= 27; Ves[13]:= 26; Ves[14]:= 24; n := Ves[1] нц для i от 1 до 14 если Ves[i] < n то n : = Ves[i] все КЦ вывод n КОН	DIS Ves(14) AS INTEGER DIS i,n AS INTEGER Ves(1)= 25: Ves(2)= 21 Ves(3)= 23: Ves(4)= 28 Ves(5)= 30: Ves(6)= 25 Ves(7)= 31: Ves(8)= 28 Ves(9)= 25: Ves(10)= 28 Ves(11)= 30: Ves(12)= 27 Ves(13)= 26: Ves(14)= 24 n = Ves(1) FOR i = 1 TO 14 IF Ves(i) < n THEN n : = Ves(i) END IF NEXT i PRINT n	Var i, n: integer; Ves: array[1..14] of integer; Begin Ves[1]:= 25; Ves[2]:= 21; Ves[3]:= 23; Ves[4]:= 28; Ves[5]:= 30; Ves[6]:= 25; Ves[7]:= 31; Ves[8]:= 28; Ves[9]:= 25; Ves[10]:= 28; Ves[11]:= 30; Ves[12]:= 27; Ves[13]:= 26; Ves[14]:= 24; n := Ves[1]; For i := 1 to 14 Do If Ves[i] < n Then Begin n : = Ves[i]; End; Writeln(n); End.

За­да­ние 10 № 671

4. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] — во вто­ром и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Dat[1:11] цел к, m Dat[1] := 20 Dat[2] := 27 Dat[3] := 19 Dat[4] := 28 Dat[5] := 26 Dat[6] := 22 Dat[7] := 24 Dat[8] := 28 Dat[9] := 26 Dat[10] := 21 Dat[11] := 27 m := 0 нц для к от 1 до 11 если Dat[к] < 25 то m : = Dat[к] все КЦ вывод m КОН	DIM Dat(11) AS INTEGER DIM k,m AS INTEGER Dat[1] = 20 Dat[2] = 27 Dat[3] = 19 Dat[4] = 28 Dat[5] = 26 Dat[6] = 22 Dat[7] = 24 Dat[8] = 28 Dat[9] = 26 Dat[10] = 21 Dat[11] = 27 m = 0 FOR k := 1 TO 11 IF Dat(k) < 25 THEN m =Dat[ k] ENDIF NEXT k PRINT m	Var k, m: integer; Dat: array[1..11] of integer; Begin Dat[1] := 20; Dat[2] := 27; Dat[3] := 19; Dat[4] := 28; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; m := 0 for k := 1 to 11 do if Dat[k] < 25 then begin m := Dat[k]; end; writeln(m); End.

За­да­ние 10 № 310

5. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве дет­ских празд­ни­ков, ко­то­рые про­во­ди­ло кафе за по­след­ний год (Dat[1] — ко­ли­че­ство дет­ских празд­ни­ков в ян­ва­ре, Dat[2] — ко­ли­че­ство празд­ни­ков в фев­ра­ле и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Dat[1:12] цел к, m, month Dat[1] := 2 Dat[2] := 8 Dat[3] := 6 Dat[4] := 3 Dat[5] := 8 Dat[6] := 2 Dat[7] := 3 Dat[8] := 7 Dat[9] := 4 Dat[10] := 4 Dat[11] := 8 Dat[12] := 7 month:=1; m := Dat[1] нц для к от 2 до 6 если Dat[к] > m то m:= Dat[k] month := k все КЦ вывод month КОН	DIM Dat(12) AS INTEGER Dat[1] = 2 Dat[2] = 8 Dat[3] = 6 Dat[4] = 3 Dat[5] = 8 Dat[6] = 2 Dat[7] = 3 Dat[8] = 7 Dat[9] = 4 Dat[10] = 4 Dat[11] = 8 Dat[12] = 7 month = 1: m = Dat(1) FOR k = 2 TO 6 IF Dat(k) > m THEN m = Dat(k) month = k END IF NEXT k PRINT month END	Var k, m, month: integer; Dat: array[1...12] of integer; Begin Dat[1] := 2 Dat[2] := 8 Dat[3] := 6 Dat[4] := 3 Dat[5] := 8 Dat[6] := 2 Dat[7] := 3 Dat[8] := 7 Dat[9] := 4 Dat[10] := 4 Dat[11] := 8 Dat[12] := 7 month:=1; m := Dat[1]; for k := 2 to 6 do if Dat[k] > m then begin m:= Dat[k]; month := k; end; write(month); End.

За­да­ние 10 № 431

6. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве по­ез­дов, от­прав­ля­ю­щих­ся с цен­траль­но­го вок­за­ла го­ро­да на юг в пер­вой де­ка­де июля (Dat[1] — ко­ли­че­ство по­ез­дов пер­во­го числа, Dat[2] — ко­ли­че­ство по­ез­дов вто­ро­го числа и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Dat[1:10] цел k, m, day Dat[1] := 2 Dat[2] := 6 Dat[3] := 3 Dat[4] := 5 Dat[5] := 4 Dat[6] := 4 Dat[7] := 5 Dat[8] := 3 Dat[9] := 6 Dat[10] := 2 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] > m то m:= Dat[k] day := k все КЦ вывод day КОН	DIM Dat(10) AS INTEGER Dat[1] = 2 Dat[2] = 6 Dat[3] = 3 Dat[4] = 5 Dat[5] = 4 Dat[6] = 4 Dat[7] = 5 Dat[8] = 3 Dat[9] = 6 Dat[10] = 2 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) > m THEN m = Dat(k) day = k END IF NEXT k PRINT day END	Var k, m, day: integer; Dat: array[1..10] of integer; Begin Dat[1] := 2; Dat[2] := 6; Dat[3] := 3; Dat[4] := 5; Dat[5] := 4; Dat[6] := 4; Dat[7] := 5; Dat[8] := 3; Dat[9] := 6; Dat[10] := 2; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] > m then begin m:= Dat[k]; day := k; end; write(day); End.

За­да­ние 10 № 471

7. Со­труд­ник ме­те­о­бю­ро в ходе из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за­пи­сы­вал по­ка­за­ния тер­мо­мет­ра в таб­ли­цу Tem (Tem[1] — тем­пе­ра­ту­ра, по­лу­чен­ная в ре­зуль­та­те пер­во­го из­ме­ре­ния, Tem[2] — вто­ро­го и т. д.).

Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Tem[1:12] цел k, b b := 15 Tem[1] := 22; Tem[2] := 25 Tem[3] := 20; Tem[4] := 18 Tem[5] := 16; Tem[6] := 14 Tem[7] := 20; Tem[8] := 23 Tem[9] := 17; Tem[10] := 19 Tem[11] := 20; Tem[12] := 21 нц для k от 1 до 12 если Tem[k] < 20 то b := b + 1 все кц вывод b кон	DIM Tem(12) AS INTEGER DIM k,b AS INTEGER b = 15 Tem(1)= 22: Tem(2)= 25 Tem(3)= 20: Tem(4) = 18 Tem(5)= 16: Tem(6)= 14 Tem(7)= 20: Tem(8)= 23 Tem(9)= 17: Tem(10)= 19 Tem(11)= 20: Tem(12)= 21 FOR k = 1 TO 12 IF Tem(k) < 20 THEN b = b + 1 END IF NEXT k PRINT b	Var k, b: integer; Tem: array[1..12] of integer; Begin b := 15; Tem[1] := 22; Tem[2] := 25; Tem[3] := 20; Tem[4] := 18; Tem[5] := 16; Tem[6] := 14; Tem[7] := 20; Tem[8] := 23; Tem[9] := 17; Tem[10] := 19; Tem[11] := 20; Tem[12] := 21; For k := 1 to 12 Do If Tem[k] < 20 Then b := b + 1; Writeln(b); End.

За­да­ние 10 № 889

8. В таб­ли­це Dat хра­нят­ся дан­ные из­ме­ре­ний сред­не­су­точ­ной тем­пе­ра­ту­ры за 10 дней в гра­ду­сах (Dat[1] — дан­ные за пер­вый день, Dat[2] — за вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Dat[1:10] цел к, m Dat[1] := 2 Dat[2] := 5 Dat[3] := 7 Dat[4] := 5 Dat[5] := 4 Dat[6] := 2 Dat[7] := 0 Dat[8] := 3 Dat[9] := 4 Dat[10] := 5 m := 10 нц для к от 1 до 10 если Dat[к] < m то m : = Dat[к] все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 2: Dat(2) = 5 Dat(3) = 7: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 3 Dat(9) = 4: Dat(10) = 5 m = 10 FOR k := 1 TO 10 IF Dat(k) < m THEN m = Dat[k] ENDIF NEXT k PRINT m	Var k, m: integer; Dat: array[1...10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 7; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m := 10; for k := 1 to 10 do if Dat [ k] < m then begin m := Dat[k] end; writeln(m); End.

За­да­ние 10 № 110

9. Вла­де­лец круп­но­го яб­ло­не­во­го сада в те­че­ние 12 лет за­пи­сы­вал в таб­ли­цу App ко­ли­че­ство со­бран­но­го уро­жая. (App[1] — ко­ли­че­ство тонн яблок, со­бран­ных за пер­вый год, App[2] — за вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгалг нач цел­таб App[1:12] цел k, m App[1] := 100; App[2] := 128 App[3] := 80; App[4] := 99 App[5] := 120; App[6] := 69 App[7] := 55; App[8] := 115 App[9] := 84; App[10] := 111 App[11] := 59; App[12] := 100 m := 0 нц для k от 1 до 12 если App[k] > 100 то m := m + 1 все кц m := m + 10 вывод m кон	DIM App(12) AS INTEGER DIM k,m AS INTEGER App(1)= 100: App(2)= 128 App(3)= 80: App(4) = 99 App(5)= 120: App(6)= 69 App(7)= 55: App(8)= 115 App(9)= 84: App(10)= 111 App(11)= 59: App(12)= 100 m = 0 FOR k = 1 TO 12 IF App(k) > 100 THEN m = m + 1 END IF NEXT k m = m + 10 PRINT m	Var k, m: integer; App: array[1..12] of integer; Begin App[1] := 100; App[2] := 128; App[3] := 80; App[4] := 99; App[5] := 120; App[6] := 69; App[7] := 55; App[8] := 115; App[9] := 84; App[10] := 111; App[11] := 59; App[12] := 100; m := 0; For k := 1 to 12 Do If App[k] > 100 Then Begin m := m + 1; End; m : = m + 10; Writeln(m); End.

За­да­ние 10 № 806

10. Школь­ни­ца де­ла­ла ла­бо­ра­тор­ную ра­бо­ту по фи­зи­ке, в ходе ко­то­рой из­ме­ри­ла 10 раз силу тока и за­пи­са­ла по­ка­за­ния ам­пер­мет­ра в таб­ли­цу Tok (Tok[1] — ре­зуль­тат пер­во­го из­ме­ре­ния, Tok[2] — вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Tok[1:10] цел k, m Tok[1] := 10; Tok[2] := 14 Tok[3] := 15; Tok[4] := 4 Tok[5] := 12; Tok[6] := 6 Tok[7] := 3; Tok[8] := 5 Tok[9] := 5; Tok[10] := 10 m := 0 нц для k от 1 до 10 если Tok[k] > 6 то m := m + 2 все кц вывод m кон	DIM Tok(10) AS INTEGER DIM k,m AS INTEGER Tok(1)= 10: Tok(2)= 14 Tok(3)= 15: Tok(4) = 4 Tok(5)= 12: Tok(6)= 6 Tok(7)= 3: Tok(8)= 5 Tok(9)= 5: Tok(10)= 10 m = 0 FOR k = 1 TO 10 IF Tok(k) > 6 THEN m = m + 2 END IF NEXT k PRINT m	Var k, m: integer; Tok: array[1..10] of integer; Begin Tok[1] := 10; Tok[2] := 14; Tok[3] := 15; Tok[4] := 4; Tok[5] := 12; Tok[6] := 6; Tok[7] := 3; Tok[8] := 5; Tok[9] := 5; Tok[10] := 10; m := 0; For k := 1 to 10 Do If Tok[k] > 6 Then Begin m := m + 2; End; Writeln(m); End.

За­да­ние 10 № 1104

11. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве сде­лан­ных уче­ни­ка­ми за­да­ний (Dat[1] за­да­ний сде­лал пер­вый уче­ник, Dat[2] — вто­рой и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел k, m, n Dat[1] := 7; Dat[2] := 9 Dat[3] := 10; Dat[4] := 5 Dat[5] := 6; Dat[6] := 7 Dat[7] := 9; Dat[8] := 10 Dat[9] := 6; Dat[10] := 9 m := 0 ; n := 0 нц для k от 1 до 10 если Dat[k] >= m то m := Dat[k] n := k все кц вывод n кон	DIM Dat(10) AS INTEGER DIM k, m, n AS INTEGER Dat(1) = 7: Dat(2) = 9 Dat(3) = 10: Dat(4) = 5 Dat(5) = 6: Dat(6) = 7 Dat(7) = 9: Dat(8) = 10 Dat(9) = 6: Dat(10) = 9 m = 0 : n =0 FOR k = 1 TO 10 IF Dat(k) >= m THEN m = Dat(k) n = k END IF NEXT k PRINT n	Var k, m, n: integer; Dat: array[1..10] of integer; Begin Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 5; Dat[5] := 6; Dat[6] := 7; Dat[7] := 9; Dat[8] := 10; Dat[9] := 6; Dat[10] := 9; m := 0; n := 0; for k := 1 to 10 do if Dat[k] >= m then begin m := Dat[k]; n := k end; writeln(n) End.

За­да­ние 10 № 1081

12. В таб­ли­це Work хра­нят­ся дан­ные о ко­ли­че­стве за­ка­зов, при­ня­тых фир­мой «Кон­фет­ти» с пер­во­го по 15 де­каб­ря. (Work[1] − число за­ка­зов, при­ня­тых 1 де­каб­ря, Work[2] − 2 де­каб­ря и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния:

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Work[1:15] цел к, m Work[1] := 5; Work[2] := 4 Work[3] := 5; Work[4] := 7 Work[5] := 6; Work[6] := 12 Work[7] := 7; Work[8] := 3 Work[9] := 9; Work[10] := 7 Work[11] := 0;Work[12] := 9 Work[13] := 1;Work[14] := 0 Work[15] := 8 m := 0 нц для к от 1 до 15 если Work[k] > 6 то m : = m+1 все КЦ вывод m КОН	DIM Work(15) AS INTEGER DIM k,m AS INTEGER Work(1)= 5: Work(2)= 4 Work(3)= 5: Work(4) = 7 Work(5)= 6: Work(6)= 12 Work(7)= 7: Work(8)= 3 Work(9)= 9: Work(10)= 7 Work(11)= 0: Work(12)= 9 Work(13)= 1: Work(14)= 0 Work(15)= 8 m = 0 FOR k = 1 TO 15 IF Work(k) > 6 THEN m = m + 1 END IF NEXT k PRINT m	Var k, m: integer; Work: array[1..15] of integer; Begin Work[1] := 5; Work[2] := 4; Work[3] := 5; Work[4] := 7; Work[5] := 6; Work[6] := 12; Work[7] := 7; Work[8] := 3; Work[9] := 9; Work[10] := 7; Work[11] := 0; Work[12] := 9; Work[13] := 1; Work[14] := 0; Work[15] := 8; m := 0; For k := 1 to 15 Do If Work[k] > 6 Then Begin m := m + 1; End; Writeln(m); End.

За­да­ние 10 № 571

13. Школь­ник делал ла­бо­ра­тор­ную ра­бо­ту по фи­зи­ке, в ходе ко­то­рой из­ме­рил 10 раз силу тока и за­пи­сал по­ка­за­ния ам­пер­мет­ра в таб­ли­цу Tok (Tok[1] — ре­зуль­тат пер­во­го из­ме­ре­ния, Tok[2] — вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Tok[1:10] цел k, m Tok[1] := 10; Tok[2] := 14 Tok[3] := 15; Tok[4] := 4 Tok[5] := 12; Tok[6] := 6 Tok[7] := 3; Tok[8] := 5 Tok[9] := 5; Tok[10] := 10 m := 22 нц для k от 1 до 10 если Tok[k] > 10 то m := m - 1 все кц вывод m кон	DIM Tok(10) AS INTEGER DIM k,m AS INTEGER Tok(1)= 10: Tok(2)= 14 Tok(3)= 15: Tok(4) = 4 Tok(5)= 12: Tok(6)= 6 Tok(7)= 3: Tok(8)= 5 Tok(9)= 5: Tok(10)= 10 m = 22 FOR k = 1 TO 10 IF Tok(k) > 10 THEN m = m - 1 END IF NEXT k PRINT m	Var k, m: integer; Tok: array[1..10] of integer; Begin Tok[1] := 10; Tok[2] := 14; Tok[3] := 15; Tok[4] := 4; Tok[5] := 12; Tok[6] := 6; Tok[7] := 3; Tok[8] := 5; Tok[9] := 5; Tok[10] := 10; m := 22; For k := 1 to 10 Do If Tok[k] > 10 Then Begin m := m - 1; End; Writeln(m); End.

За­да­ние 10 № 754

14. В таб­ли­це Dat хра­нят­ся от­мет­ки уча­щих­ся 9 клас­са за са­мо­сто­я­тель­ную ра­бо­ту (Dat[1] – от­мет­ка пер­во­го уча­ще­го­ся, Dat[2] – вто­ро­го и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел k, m Dat[1] := 4 Dat[2] := 5 Dat[3] := 4 Dat[4] := 3 Dat[5] := 2 Dat[6] := 3 Dat[7] := 4 Dat[8] := 5 Dat[9] := 5 Dat[10] := 3 m := 0 нц для k от 1 до 10 если Dat[k] < 4 то m := m + Dat[k] все кц вывод m кон	DIM Dat(10) AS INTEGER DIM k, m AS INTEGER Dat(1) = 4: Dat(2) = 5 Dat(3) = 4: Dat(4) = 3 Dat(5) = 2: Dat(6) = 3 Dat(7) = 4: Dat(8) = 5 Dat(9) = 5: Dat(10) = 3 m = 0 FOR k = 1 TO 10 IF Dat(k) < 4 THEN m = m + Dat(k) END IF NEXT k PRINT m END	Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 4; Dat[2] := 5; Dat[3] := 4; Dat[4] := 3; Dat[5] := 2; Dat[6] := 3; Dat[7] := 4; Dat[8] := 5; Dat[9] := 5; Dat[10] := 3; m := 0; for k := 1 to 10 do if Dat[k] < 4 then begin m := m + Dat[k]; end; writeln(m); End.

За­да­ние 10 № 868

15. В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве по­ез­дов, от­прав­ля­ю­щих­ся с цен­траль­но­го вок­за­ла го­ро­да на юг в пер­вой де­ка­де июля (Dat[1] — ко­ли­че­ство по­ез­дов пер­во­го числа, Dat[2] — ко­ли­че­ство по­ез­дов вто­ро­го числа и т. д.). Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трёх ал­го­рит­ми­че­ских язы­ках.

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алгнач цел­таб Dat[1:10] цел k, m, day Dat[1] := 6 Dat[2] := 2 Dat[3] := 5 Dat[4] := 3 Dat[5] := 4 Dat[6] := 4 Dat[7] := 3 Dat[8] := 5 Dat[9] := 2 Dat[10] := 6 day:=1; m := Dat[1] нц для k от 2 до 10 если Dat[к] < m то m:= Dat[k] day := k все КЦ вывод day КОН	DIM Dat(10) AS INTEGER Dat[1] = 6 Dat[2] = 2 Dat[3] = 5 Dat[4] = 3 Dat[5] = 4 Dat[6] = 4 Dat[7] = 3 Dat[8] = 5 Dat[9] = 2 Dat[10] = 6 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) < m THEN m = Dat(k) day = k END IF NEXT k PRINT day END	Var k, m, day: integer; Dat: array[1...10] of integer; Begin Dat[1] := 6; Dat[2] := 2; Dat[3] := 5; Dat[4] := 3; Dat[5] := 4; Dat[6] := 4; Dat[7] := 3; Dat[8] := 5; Dat[9] := 2; Dat[10] := 6; day:=1; m := Dat[1]; for k := 2 to 10 do if Dat[k] < m then begin m:= Dat[k]; day := k; end; write(day); End.