Задания 10. Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке

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

 

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

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 12 Dat[2]:= 15 Dat[3]:= 17 Dat[4]:= 15 Dat[5]:= 14 Dat[6]:= 12 Dat[7]:= 10 Dat[8]:= 13 Dat[9]:= 14 Dat[10]:= 15 m:= 0 нц для к от 1 до 10 если Dat[к] > m то m: = Dat[к] все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 0 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]:= 12; Dat[2]:= 15; Dat[3]:= 17; Dat[4]:= 15; Dat[5]:= 14; Dat[6]:= 12; Dat[7]:= 10; Dat[8]:= 13; Dat[9]:= 14; Dat[10]:= 15; m:= 0; for k:= 1 to 10 do if Dat[k] > m then begin m:= Dat[k] end; writeln(m); End.

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 12 Dat[2]:= 15 Dat[3]:= 17 Dat[4]:= 15 Dat[5]:= 14 Dat[6]:= 12 Dat[7]:= 10 Dat[8]:= 13 Dat[9]:= 14 Dat[10]:= 15 m:= 20 нц для к от 1 до 10 если Dat[k] < m то m: = Dat[k] все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 12: Dat(2) = 15 Dat(3) = 17: Dat(4) = 15 Dat(5) = 14: Dat(6) = 12 Dat(7) = 10: Dat(8) = 13 Dat(9) = 14: Dat(10) = 15 m = 20 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]:= 12; Dat[2]:= 15; Dat[3]:= 17; Dat[4]:= 15; Dat[5]:= 14; Dat[6]:= 12; Dat[7]:= 10; Dat[8]:= 13; Dat[9]:= 14; Dat[10]:= 15; m:= 20; for k:= 1 to 10 do if Dat[k] < m then begin m:= Dat[k] end; writeln(m); End.

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

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

 

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

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 2 Dat[2]:= 5 Dat[3]:= 8 Dat[4]:= 5 Dat[5]:= 4 Dat[6]:= 2 Dat[7]:= 0 Dat[8]:= 3 Dat[9]:= 4 Dat[10]:= 5 m:= 0 нц для к от 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) = 8: Dat(4) = 5 Dat(5) = 4: Dat(6) = 2 Dat(7) = 0: Dat(8) = 3 Dat(9) = 4: Dat(10) = 5 m = 0 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]:= 8; Dat[4]:= 5; Dat[5]:= 4; Dat[6]:= 2; Dat[7]:= 0; Dat[8]:= 3; Dat[9]:= 4; Dat[10]:= 5; m:= 0; for k:= 1 to 10 do if Dat[k] > m then begin m:= Dat[k] end; writeln(m); End.

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

6. В таб­ли­це 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

7. В таб­ли­це 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]:= 2 Dat[9]:= 4 Dat[10]:= 5 m:= 0 нц для к от 1 до 10 если Dat[к] > 3 то m: = m+1 все КЦ вывод 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) = 2 Dat(9) = 4: Dat(10) = 5 m = 0 FOR k:= 1 TO 10 IF Dat(k) > 3 THEN m =m+1 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]:= 2; Dat[9]:= 4; Dat[10]:= 5; m:= 0; for k:= 1 to 10 do if Dat[k] > 3 then begin m:= m+1 end; writeln(m); End.

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

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

 

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

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

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

 

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

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 56 Dat[2]:= 70 Dat[3]:= 20 Dat[4]:= 41 Dat[5]:= 14 Dat[6]:= 22 Dat[7]:= 30 Dat[8]:= 12 Dat[9]:= 65 Dat[10]:= 35 m:= 100 нц для к от 1 до 10 если Dat[к] < m то m: = Dat[к] все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 56: Dat(2) = 70 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 22 Dat(7) = 30: Dat(8) = 12 Dat(9) = 65: Dat(10) = 35 m = 100 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]:= 56; Dat[2]:= 70; Dat[3]:= 20; Dat[4]:= 41; Dat[5]:= 14; Dat[6]:= 22; Dat[7]:= 30; Dat[8]:= 12; Dat[9]:= 65; Dat[10]:= 35; m:= 100; for k:= 1 to 10 do if Dat[k] < m then begin m:= Dat[k] end; writeln(m); End.

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 56 Dat[2]:= 70 Dat[3]:= 20 Dat[4]:= 41 Dat[5]:= 14 Dat[6]:= 22 Dat[7]:= 30 Dat[8]:= 12 Dat[9]:= 65 Dat[10]:= 35 m:= 0 нц для к от 1 до 10 если Dat[к] > m то m: = Dat[к] все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 56: Dat(2) = 70 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 22 Dat(7) = 30: Dat(8) = 12 Dat(9) = 65: Dat(10) = 35 m = 0 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]:= 56; Dat[2]:= 70; Dat[3]:= 20; Dat[4]:= 41; Dat[5]:= 14; Dat[6]:= 22; Dat[7]:= 30; Dat[8]:= 12; Dat[9]:= 65; Dat[10]:= 35; m:= 0; for k:= 1 to 10 do if Dat[k] > m then begin m:= Dat[k] end; writeln(m); End.

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

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

 

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

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 16 Dat[2]:= 20 Dat[3]:= 20 Dat[4]:= 41 Dat[5]:= 14 Dat[6]:= 21 Dat[7]:= 28 Dat[8]:= 11 Dat[9]:= 15 Dat[10]:= 35 m:= 50 нц для к от 1 до 10 если Dat[к] < m то m: = Dat[к] все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 16: Dat(2) = 20 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 21 Dat(7) = 28: Dat(8) = 11 Dat(9) = 15: Dat(10) = 35 m = 50 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]:= 16; Dat[2]:= 20; Dat[3]:= 20; Dat[4]:= 41; Dat[5]:= 14; Dat[6]:= 21; Dat[7]:= 28; Dat[8]:= 11; Dat[9]:= 15; Dat[10]:= 35; m:= 50; for k:= 1 to 10 do if Dat[k] < m then begin m:= Dat[k] end; writeln(m); End.

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, m Dat[1]:= 16 Dat[2]:= 20 Dat[3]:= 20 Dat[4]:= 41 Dat[5]:= 14 Dat[6]:= 21 Dat[7]:= 28 Dat[8]:= 12 Dat[9]:= 15 Dat[10]:= 35 m:= 0 нц для к от 1 до 10 если Dat[к] > m то m: = Dat[к] все КЦ вывод m КОН	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 16: Dat(2) = 20 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 21 Dat(7) = 28: Dat(8) = 12 Dat(9) = 15: Dat(10) = 35 m = 0 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]:= 16; Dat[2]:= 20; Dat[3]:= 20; Dat[4]:= 41; Dat[5]:= 14; Dat[6]:= 21; Dat[7]:= 28; Dat[8]:= 12; Dat[9]:= 15; Dat[10]:= 35; m:= 0; for k:= 1 to 10 do if Dat[k] > m then begin m:= Dat[k] end; writeln(m); End.

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел к, 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]:= 8 Dat[9]:= 6 Dat[10]:= 9 m:= 10; n: = 0 нц для к от 1 до 10 если Dat[к] < m то m: = Dat[к] n: = к все КЦ вывод 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] = 8 Dat[9] = 6 Dat[10] = 9 m = 10; n = 0 FOR k:= 1 TO 10 IF Dat(k) < m THEN m =Dat[k] n = k ENDIF 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]:= 8; Dat[9]:= 6; Dat[10]:= 9; m:= 10; n: = 0; for k:= 1 to 10 do if Dat[k] < m then begin m:= Dat[k]; n:= k end; writeln(n); End.

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

16. В таб­ли­це 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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:11] цел к, 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 нц для к от 1 до 11 если Dat[к] > 22 то 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) > 22 THEN m =m+1 ENDIF 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] > 22 then begin m:= m+1; end; writeln(m); End.

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

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

 

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

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

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

 

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

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

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

 

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

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:12] цел к, m, term Dat[1]:= 2 Dat[2]:= 5 Dat[3]:= 6 Dat[4]:= 8 Dat[5]:= 8 Dat[6]:= 5 Dat[7]:= 3 Dat[8]:= 7 Dat[9]:= 4 Dat[10]:= 4 Dat[11]:= 8 Dat[12]:= 7 month:=1; m:= Dat[1] нц для к от 2 до 12 если Dat[к] >= m то m:= Dat[k] month:= k все КЦ вывод month КОН	DIM Dat(12) AS INTEGER Dat[1] = 2 Dat[2] = 5 Dat[3] = 6 Dat[4] = 8 Dat[5] = 8 Dat[6] = 5 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 12 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]:= 5; Dat[3]:= 6; Dat[4]:= 8; Dat[5]:= 8; Dat[6]:= 5; 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 12 do if Dat[k] >= m then begin m:= Dat[k]; month:= k; end; write(month); End.

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

22. В таб­ли­це 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

23. В таб­ли­це 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]:= 8 Dat[10]:= 3 Dat[11]:= 8 Dat[12]:= 7 month:=1; m:= Dat[1] нц для к от 8 до 12 если 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] = 8 Dat[10] = 3 Dat[11] = 8 Dat[12] = 7 month = 1: m = Dat(1) FOR k = 8 TO 12 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]:= 8 Dat[10]:= 3 Dat[11]:= 8 Dat[12]:= 7 month:=1; m:= Dat[1]; for k:= 8 to 12 do if Dat[k] > m then begin m:= Dat[k]; month:= k; end; write(month); End.

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

24. В таб­ли­це 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

25. В таб­ли­це 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.

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

26. В таб­ли­це 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]:= 4 Dat[6]:= 4 Dat[7]:= 5 Dat[8]:= 5 Dat[9]:= 6 Dat[10]:= 6 day:=1; m:= Dat[1] нц для k от 2 до 10 если Dat[k] >= 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] = 4 Dat[6] = 4 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]:= 4; Dat[6]:= 4; 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 № 511

27. В таб­ли­це 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

28. В таб­ли­це 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] < 7 то 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) < 7 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] < 7 Then Begin m:= m + 1; End; Writeln(m); End.

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

29. В таб­ли­це 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

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

 

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

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

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

 

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

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

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

 

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

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

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

 

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

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

34. В таб­ли­це 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

35. В таб­ли­це 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:= 0 нц для к от 1 до 14 если Ves[i] > 26 то n: = n + 1 все КЦ вывод 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 = 0 FOR i = 1 TO 14 IF Ves(i) > 26 THEN n: = n + 1 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:= 0; For i:= 1 to 14 Do If Ves[i] > 26 Then Begin n: = n + 1; End; Writeln(n); End.

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

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

 

Ал­го­рит­ми­че­ский язык	Бей­сик	Пас­каль
алг нач цел­таб Dat[1:10] цел k, m Dat[1]:= 16 Dat[2]:= 20 Dat[3]:= 20 Dat[4]:= 41 Dat[5]:= 14 Dat[6]:= 21 Dat[7]:= 28 Dat[8]:= 12 Dat[9]:= 15 Dat[10]:= 35 m:= 0 нц для k от 1 до 10 если Dat[k]>m то m:= Dat[k] все кц вывод m кон	DIM Dat(10) AS INTEGER DIM k,m AS INTEGER Dat(1) = 16: Dat(2) = 20 Dat(3) = 20: Dat(4) = 41 Dat(5) = 14: Dat(6) = 21 Dat(7) = 28: Dat(8) = 12 Dat(9) = 15:Dat(10) = 35 m = 0 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]:= 16; Dat[2]:= 20; Dat[3]:= 20; Dat[4]:= 41; Dat[5]:= 14; Dat[6]:= 21; Dat[7]:= 28; Dat[8]:= 12; Dat[9]:= 15; Dat[10]:= 35; m:= 0; for k:= 1 to 10 do if Dat[k]>m then begin m:= Dat[k] end; writeln(m); End.

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

37. Школь­ник делал ла­бо­ра­тор­ную ра­бо­ту по фи­зи­ке, в ходе ко­то­рой из­ме­рил 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

38. Школь­ник делал ла­бо­ра­тор­ную ра­бо­ту по фи­зи­ке, в ходе ко­то­рой из­ме­рил 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 № 774

39. Вла­де­лец круп­но­го яб­ло­не­во­го сада в те­че­ние 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

40. Вла­де­лец круп­но­го яб­ло­не­во­го сада в те­че­ние 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] < 80 то m:= m + 1 все кц m:= m + 20 вывод 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) < 80 THEN m = m + 1 END IF NEXT k m = m + 20 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] < 80 Then Begin m:= m + 1; End; m: = m + 20; Writeln(m); End.

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

41. В таб­ли­це 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] > 3 то m:= m + 1 все кц в <== предыдущая лекция | следующая лекция ==> Технологические средства обучения детей с нарушением зрения. |   Поделиться с друзьями: Дата добавления: 2016-11-24; Мы поможем в написании ваших работ!; просмотров: 723 | Нарушение авторских прав Поиск на сайте: Лучшие изречения: Вы никогда не пересечете океан, если не наберетесь мужества потерять берег из виду. © Христофор Колумб ==> читать все изречения... 1711 - | 1600 - © 2015-2024 lektsii.org - Контакты - Последнее добавление

Ген: 0.113 с.