Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке Ответами к заданиям являются слово, словосочетание, число или последовательность слов, чисел. 1 1 В массиве V хранятся данные о среднемесячной влажности за год в процентах (V[l] — данные за январь, V[2] — за февраль и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках. Алгоритмический язык DIM V(12) ASINTEGERV(1)=52V(2)=71V(3)=88V(4)=31V(5)=17V(6)=82V(7)=74V(8)=91V(9)=24V(10)=61V(11)=50V(12)=31k= 0FOR i = 1 TO 12IF (V(i)>50) and(V(i)<80) THENk=k+1END IFNEXT iPRINT kEND Бейсик var k, i: integer;V: array[1..12] of integer;beginV[1]:=52;V[2]:=71;V[3]:=88;V[4]:=31;V[5]:=17;V[6]:=82;V[7]:=74;V[8]:=91;V[9]:=24;V[10]:=61;V[11]:=50;V[12]:=31;k:= 0;for i:=1 to 12 doif (V[i]>50) and(V[i]<80) thenk=k+1;write(k);end. Паскаль алгначцелтаб V[1:12]цел k, iV[1]:=52V[2]:=71V[3]:=88V[4]:=31V[5]:=17V[6]:=82V[7]:=74V[8]:=91V[9]:=24V[10]:=61V[11]:=50V[12]:=31k:= 0нц для i от 1до 12если (V[i]>50)и (V[i]<80) тоk=k+1всекцвывод kкон 2 2 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык алг нач целтаб Dat[1 : 10] цел k, m Dat [1] := 45; Dat [2] : = 55 Dat [3] := 40; Dat [4] : = 15 Dat [5] := 20; Dat [6] : = 80 Dat [7] := 35; Dat [ 8] : = 70 Dat [9] := 10; Dat [10] := 45 m:= Dat[1] нц для к от 4 до 10 если Dat[к] <= Dat[1] TO m:= m + Dat [к] все кц вывод mкон Бейсик DIM Dat(10) AS INTEGER Dat(1)= 45: Dat(2)= 55 Dat(3)= 40: Dat(4)= 15 Dat(5)= 20: Dat(6)= 80 Dat(7)= 35: Dat(8)= 70 Dat(9)= 10: Dat(10)= 45 m = Dat(1) FOR k = 4 TO 10 IF Dat(k) <= Dat(1) THEN m = m + Dat (k) END IF NEXT kPRINT mEND Паскаль var k, m: integer;Dat: array[1..10] of integer;begin Dat[1]:= 45; Dat[2]:= 55; Dat[3]:= 40; Dat[4]:= 15; Dat[5]:= 20; Dat[6]:= 80; Dat[7]:= 35; Dat[8]:= 70; Dat[9]:= 10; Dat[10]: = 45; m:= Dat [1]; for k:= 4 to 10 do begin if Dat[k] <= Dat[l] then begin m:= m + Dat [k] end end;write (m);end. 3 3 В массиве Phone хранятся данные о расходах за телефон за год в рублях (Phone[l] — данные за январь, Phone[2] — за февраль и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках. Ответ запишите без пробелов. Алгоритмический язык DIM Phone (12) ASINTEGERPhone(1)=52Phone(2)=71Phone (3)=88Phone (4)=31Phone (5)=17Phone (6)=82Phone (7)=74Phone (8)=91Phone (9)=24Phone (10)=61Phone (11)=50Phone (12)=31d = 1: s= Phone(1)FOR i = 2 TO 12IF Phone(i) >sTHENs= Phone(i)d=iEND IFNEXT iPRINT s,dEND Бейсик var d, s, i: integer;Phone: array[1..12]of шnteger;beginPhone[1]:=52;Phone[2]:=71;Phone[3]:=88;Phone [4]:=31;Phone [5]:=17;Phone [6]:=82;Phone [7]:=74;Phone [8]:=91;Phone [9]:=24;Phone [10]:=61;Phone [11]:=50;Phone [12]:=31;d:= 1; s:= Phone[1];for i:=2 to 12 dobeginif Phone[i] >s thenbegins:= Phone[i]; d:=iendend;write(s,d);end. Паскаль алгначцелтабPhone[1:12]цел d, s, iPhone[1]:=52;Phone[2]:=71;Phone [3]:=88;Phone [4]:=31;Phone [5]:=17;Phone [6]:=82;Phone [7]:=74;Phone [8]:=91;Phone [9]:=24;Phone [10]:=61;Phone [11]:=50;Phone [12]:=31;d:= 1; s:=Phone[1]нц для i от 2 до12если Phone[i] >sтоs:= Phone[i]; d:=iвсекцвывод s,dкон 4 4 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык алг нач целтаб Dat[1:10] цел k, m Dat[1] := 45; Dat[2] : = 55 Dat[3] := 40; Dat[4] : = 15 Dat[5] := 20; Dat[6] := 80 Dat[7] := 35; Dat[8] : = 70 Dat[9] := 10; Dat[10] := 45 m:= Dat[1] нц для к от 4 до 10 если Dat[к] >= Dat[1] то m:= m + Dat [к] все кц вывод m кон Бейсик DIM Dat(10) AS INTEGER Dat(1)= 45: Dat(2)= 55 Dat(3)= 40: Dat(4)= 15 Dat(5)= 20: Dat(6)= 80 Dat(7)= 35: Dat(8)= 70 Dat(9)= 10: Dat(10)= 45 m = Dat (1) FOR k = 4 TO 10 IF Dat(k) >= Dat (1) THEN m = m + Dat (k) END IF NEXT kPRINT mEND Паскаль var k, m: integer;Dat: array[1..10] of integer;begin Dat[1] := 45; Dat[2] := 55; Dat[3] := 40; Dat[4] := 15; Dat[5] := 20;. Dat[6] := 80; Dat[7] := 35; Dat[8] := 70; Dat[9] := 10; Dat[10] := 45; m:= Dat[1]; for k:= 4 to 10 do begin if Dat[k] >= Dat[1] then begin m:= m + Dat[k] end end; write(m);end. 5 5 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык алг нач целтаб Dat [1:10] цел к, m Dat [1] = 45; Dat[2]:= 55 Dat [3] = 40; Dat[4]:= 15 Dat [5] = 20; Dat[6]:= 80 Dat [7] = 35; Dat[8]:= 70 Dat [9] = 10 Dat [10] := 45 m:= Dat[l] нц для к от 2 до 10 если Dat[к] < Dat[l] то m := m + Dat[k] все кц вывод m кон Бейсик DIM Dat(10) AS INTEGER Dat(1)= 45 Dat(2)= 55 Dat(3)= 40 Dat(4)= 15 Dat(5)= 20 Dat(6)= 80 Dat(7)= 35 Dat(8)= 70 Dat(9)= 10 Dat(10)= 45 m = Dat(1) FOR k = 2 TO 10 IF Dat(k) < Dat (1) 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]:= 45; Dat[2]:= 55; Dat[3]:= 40; Dat[4]:= 15; Dat[5]:= 20; Dat[6]:= 80; Dat[7]:= 35; Dat[8]:= 70; Dat[9]:= 10; Dat[10]:= 45; m:= Dat [1]; for k:= 2 to 10 do begin if Dat[k] < Dat[1] then begin m:= m + Dat [k] end end; write(m);end. 6 6 В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках. Алгоритмический язык алгнач целтаб Dat[1:10] цел k, m, num Dat[1] := -7; Dat[2] := -8 Dat[3] := 3; Dat[4] := 6 Dat[5] := -4; Dat[6] := 3 Dat[7] := 5; Dat[8] := 5 Dat[9] := 7; Dat[10] := 1 num := 1; m := Dat[1] нц для к от 2 до 10 если Dat[к]* m < 0 то m := Dat[к]; num := к все кц вывод mкон Бейсик DIM Dat(10) AS INTEGER Dat (1) = -7: Dat(2) = -8 Dat (3) = 3: Dat(4) = 6 Dat (5) = -4: Dat(6) = 3 Dat (7) = 5: Dat(8) = 5 Dat(9) = 7: Dat(10) = 1 num = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k)* m < 0 THEN m = Dat(k) num - k END IF NEXT kPRINT mEND Паскаль var k, m, num: integer;Dat: array[ 1.. 10 ] of integer;begin Dat[1] := -7; Dat[2] := -8; Dat [ 3 ] : = 3; Dat[4] : = 6; Dat [5] := -4; Dat[6] := 3; Dat[7] := 5; Dat[8] := 5; Dat [9] := 7; Dat[10] := 1; num:= 1; m:= Dat[1]; for k:= 2 to 10 do begin if Dat[k]* m < 0 then begin m := Dat [k]; num := k end end; write (m);end. 7 7 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык алгнач целтаб Dat[1:12] цел k, 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 := 7; m := Dat[7] нц для к от 8 до 12 если Dat[к] > m то m := Dat[к]; month := к все кц вывод monthкон Бейсик DIM Dat(12) AS INTEGERDat(1)= 2: Dat(2)= 8Dat(3)= 6: Dat(4) = 3Dat(5)= 8: Dat(6)- 2Dat(7)= 3: Dat(8)= 7Dat(9)= 8: Dat(10)= 3Dat(11)= 8: Dat(12)= 7month = 7: m = Dat(7)FOR k = 8 TO 12 IF Dat(k) > m THEN m = Dat(k) month = k END IFNEXT kPRINT monthEND Паскаль 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 := 7; m := Dat[7]; for k := 8 to 12 do begin if Dat[k] > m then begin m := Dat [k]; month := k end end;write(month);end. 8 8 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык алг нач целтаб Dat[1 : 10] цел k, m Dat [1] := 45; Dat [2] : = 55 Dat [3] := 40; Dat [4] : = 15 Dat [5] := 20; Dat [6] : = 80 Dat [7] := 35; Dat [8] : = 70 Dat [9]:= 10; Dat [10] := 45 m:= Dat[1] нц для к от 4 до 10 если Dat[к] > Dat[1] TO m:= m + Dat [к] все кц вывод mкон Бейсик DIM Dat(10) AS INTEGER Dat(1) = 45 Dat(2) = 55 Dat(3) = 40 Dat(4) = 15 Dat(5) = 20 Dat(6) = 80 Dat(7) = 35 Dat(8) = 70 Dat(9) = 10 Dat(10) = 45 m = Dat (1) FOR k = 4 TO 10 IF Dat(k) > Dat (1) 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]:= 45; Dat[2]:= 55; Dat[3]:= 40; Dat[4]:= 15; Dat[5]:= 20; Dat[6]:= 80; Dat[7]:= 35; Dat[8]:= 70; Dat[9]:= 10; Dat[10]:= 45; m:= Dat[1]; for k:= 4 to 10 do begin if Dat[k] > Dat[l] then begin m: = m + Dat [k] end end; write(m); end. 9 9 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык алгнач целтаб Dat[1:10] цел k, m, day Dat [1] := 7; Dat [2] := 1 Dat [3] := 3; Dat [4] := 3 Dat [5] := 2; Dat [6] := 2 Dat [7] := 5; Dat [8] := 5 Dat[9] := 7; Dat [10] := 1 day := 1; m := Dat[1] нц для к от 2 до 10 если Dat[к] < m то m := Dat[к]; day := к все КЦ вывод dayкон Бейсик DIM Dat (10) AS INTEGER Dat (1) = 7: Dat (2) = 1 Dat (3) = 3: Dat (4) = 3 Dat (5) = 2: Dat (6) = 2 Dat (7) = 5: Dat (8) = 5 Dat (9) = 7: Dat (10) = 1 day = 1: m = Dat(1) FOR k = 2 TO 10 IF Dat(k) < m THEN day = k m - Dat(k) END IF NEXT kPRINT dayEND Паскаль var k, m, day: integer;Dat: array[1..10] of integer;begin Dat [1] := 7; Dat [2] := 1; Dat [3] := 3; Dat [4] := 3; Dat [5] := 2; Dat [6] := 2; Dat [7] := 5; Dat [8] := 5; Dat [9] := 7; Dat [10] := 1; day:= 1; m:= Dat[l]; for k:= 2 to 10 do begin if Dat[k] < m then begin m := Dat [k]; day := k end end; write(day); end. 10 10 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования. Алгоритмический язык алгнач целтаб Dat[1:12] цел k, 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[к] month := к все кцвывод monthкон Бейсик DIM Dat(12) AS INTEGERDat(1)= 2: Dat(2)= 8Dat(3)= 6: Dat(4)= 3Dat(5)= 8: Dat(6)= 2Dat(7)= 3: Dat(8)= 7Dat(9)- 4: Dat(10)= 4Dat(11)= 8: Dat(12)= 7month = 1: m = Dat(1)FOR k = 2 TO 6 IF Dat(k) > m THEN m = Dat(k) month = k END IFNEXT kPRINT monthEND Паскаль 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 begin if Dat[k] > m then begin m := Dat [k]; month := k end end; write(month);end. 0 из 10 № Ваш ответ Правильный ответ Здесь появится результат тестовой части. Нажмите на кнопку «Завершить работу», чтобы увидеть правильные ответы. Завершить работу