Циклический алгоритм обработки массива

Циклический алгоритм обработки массива Предмет  Информатика  9  Информатика. 9 класс. Босова Л.Л., Босова А.Ю. М.: 2013. — 184 с.  Тестовые задания для самоконтроля  Класс  Учебник  Тема  Вопрос №1 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. of integer;  45; Dat[2]:= 55;  40; Dat[4]:= 15;  20; Dat[6]:= 80;  35; Dat[8]:= 70;  10; Dat[10]: = 45; Dat[1]:= Dat[3]:= Dat[5]:= Dat[7]:= Dat[9]:= m:= Dat [1]; var k, m: integer; Dat: array[1..10]   begin             for   k:= 4 to 10 do begin if    Dat[k] <= Dat[l] then        end   end;  write (m); end. begin m:= m + Dat [k] Вопрос №2 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. var k, m, day: integer; Dat: array[1..10] of integer; begin        7; Dat [2] := 1;  3; Dat [4] := 3;  2; Dat [6] := 2; Dat [1] := Dat [3] := Dat [5] := 5; Dat [8] := 5;  7; Dat [10] := 1;  1; m:= Dat[l]; begin Dat [7] := Dat [9] :=     day:=  for   k:= 2 to 10 do begin if    Dat[k] < m then            end   end;    end. m := Dat [k]; day := k write(day);   Вопрос №3 В массиве V хранятся данные о среднемесячной влажности за год в процентах (V[l] — данные за  январь, V[2] — за февраль и т.д.). Определите, что будет напечатано в результате выполнения  следующего алгоритма. var k, i: integer; V: array[1..12] of integer; begin V[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 do if (V[i]>50) and (V[i]<80) then k=k+1; write(k); end. Вопрос №4 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. var k, m, day: integer; Dat: array[1..10] of integer; m:= Dat[1];  7; Dat[2] := 2;  3; Dat[4] := 3;  4; Dat[6] := 4;  5; Dat[8] := 5;  7; Dat[10] := 6; Dat[1] := Dat[3] := Dat[5] := Dat[7] := Dat[9] :=  1; begin           day:=    for   k:= 2 to 10 do begin if    Dat[k] >= m then            end   end;    end. m := Dat [k]; day := k write(day); begin Вопрос №5 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. Dat[1] := Dat[3] := Dat[5] := Dat[7] := Dat[9] :=  16; Dat[2] := 20;  20; Dat[4] := 41;  14; Dat[6] := 21;  28; Dat[8] := 12;  15; Dat[10] := 35; Var k, m: integer; Dat: array[1..10] of integer; Begin           m :=   0; for   k := 1 to 10 do if    Dat[k]>m then              end;   End. m := Dat[k] writeln(m); begin Вопрос №6 В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет  напечатано в результате выполнения следующего алгоритма. 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(num); end. Вопрос №7 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. of integer;  45; Dat[2]:= 55;  40; Dat[4]:= 15;  20; Dat[6]:= 80;  35; Dat[8]:= 70;  10; Dat[10]:= 45; Dat[1]:= Dat[3]:= Dat[5]:= Dat[7]:= Dat[9]:= m:= Dat [1]; var k, m: integer; Dat: array[1..10]   begin             for   k:= 2 to 10 do begin if    Dat[k] < Dat[1] then        end   end;    end. m:= m + Dat [k] begin write(m); Вопрос №8 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. var k, m, month: integer; Dat: array[1..12]   begin   of integer; Dat[1] :=  2; Dat[2] := 8; Dat[3] := Dat[5] := Dat[7] := Dat[9] := Dat[11] := month :=    6; Dat[4] := 3;    8; Dat[6] := 2;    3; Dat[8] := 7;    8; Dat[10] := 3;    8; Dat[12] := 7;    7; m := Dat[7]; for   k := 8 to 12 do begin if    Dat[k] > m then begin         end   end;  write(month); end. m := Dat [k]; month := k Вопрос №9 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. of integer;  45; Dat[2] := 55;  40; Dat[4] := 15;  20;. Dat[6] := 80;  35; Dat[8] := 70;  10; Dat[10] := 45; Dat[1] := Dat[3] := Dat[5] := Dat[7] := Dat[9] := m:= Dat[1]; var k, m: integer; Dat: array[1..10]   begin             for   k:= 4 to 10 do begin if    Dat[k] >= Dat[1] then        end   end;    end. begin m:= m + Dat[k] write(m); Вопрос №10 В массиве Phone хранятся данные о расходах за телефон за год в рублях (Phone[l] — данные за январь,  Phone[2] — за февраль и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма. var d, s, i: integer; Phone: array[1..12] of шnteger; begin Phone[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 do begin if Phone[i] >s then begin s:= Phone[i]; d:=i end end; write(s,d); end. Вопрос №11 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. of integer; begin m := Dat [k]; month := k Dat[1] := Dat[3] := Dat[5] : = Dat[7] : = Dat[9] := Dat[11] := month := var k, m, month: integer; Dat: array[1.,12]   begin    2; Dat[2] := 8;    6; Dat[4] := 3;    8; Dat[6] := 2;    3; Dat[8] := 7;    4; Dat[10] := 4;    8; Dat [12] := 7;    1; m := Dat[1]; for   k := 2 to 6 do begin if    Dat[k] > m then            end   end;    end. write(month); Вопрос №12 В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет  напечатано в результате выполнения следующего алгоритма. 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. Вопрос №13 В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате  выполнения следующего алгоритма. of integer; begin m: = m + Dat [k]  45; Dat[2]:= 55;  40; Dat[4]:= 15;  20; Dat[6]:= 80;  35; Dat[8]:= 70;  10; Dat[10]:= 45; Dat[1]:= Dat[3]:= Dat[5]:= Dat[7]:= Dat[9]:= m:= Dat[1]; var k, m: integer; Dat: array[1..10]   begin             for   k:= 4 to 10 do begin if    Dat[k] > Dat[l] then        end   end;  write(m);  end. Правильные ответы, решения к тесту: Вопрос №1 Правильный ответ — 170 Вопрос №2 Правильный ответ — 2 Вопрос №3 Правильный ответ — 4 Вопрос №4 Правильный ответ — 9 Вопрос №5 Правильный ответ — 41 Вопрос №6 Правильный ответ — 9 Вопрос №7 Правильный ответ — 165 Вопрос №8 Правильный ответ — 9 Вопрос №9 Правильный ответ — 240 Вопрос №10 Правильный ответ — 918 Вопрос №11 Правильный ответ — 2 Вопрос №12 Правильный ответ — 3 Вопрос №13 Правильный ответ — 195