ВАРИАНТ - 5 ФАМИЛИЯ КЛАСС число имя 1 Определите, что будет напечатано в результате выполнения следующего алгоритма. Var i, n: integer; Ves: array[114] of integer; Begin Ves[1]:=25;Ves[2]:=21; Ves[3]:=23; Ves[4]: =28;Ves[5]:=30;Ves[6]:=25; 2 Определите, какое число будет напечатано в результате работы следующей программы. Var k, b: integer; Tem: array[1.12] of integer; Begin Tem[1] := 22; Tem[2] :=25; Tem[3] :=20; Tem[4] := 18; Tem[5]:=16;Tem[6]:=14; Ves[7]:= 31; Ves[8]:=28;Ves[9]:=25; Tem[7] := 20; Tem[8]:=23; Ves[10]:=28;Ves[11]:=30;Ves[12]: =27; Ves[13]:= 26; Ves[14]: = 24; n : = Ves[1]; Tem[9]:=17;Tem[10]:=19; Tem[11]:=20; Tem[12] :=21; For i : = 1 to 14 Do If Ves[i] < n Then Begin n : = Ves[i]; End; Writeln(n); End. b : = 0; For k : = 1 to 12 Do If Tem[k] < 19 Then b : = b + Tem[k]; Writeln(b); End. 3 Определите, что будет напечатано в результате выполнения следующего алгоритма. var k, score: integer; A: array[1…9] of integer; begin A[1]:=6; A[2]:=11; A[3]:=7; A[4]:=12; A[5]:=13; A[6]:=5; A[7]:=9; A[8]:=3; A[9]:=4; 4 Определите, какое число будет напечатано в результате работы следующей программы. 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] : = 5; Dat[7] := 9; Dat[8] := 4; Dat[9] := 6; score:= 0; Dat[10] := 9; for k:=1 to 9 do m : = 8; n : = 0; begin if A[k] >= 9 then score:= score+A[k]; end; for k := 1 to 10 do if Dat[k] <= m then begin m : = Dat[k]; n : = k end; writeln(n) End. write(score); end. 5 Определите, что будет напечатано в результате 6 Определите, какое число будет напечатано в ре- выполнения следующего алгоритма. зультате работы следующей программы. var k, day: integer; Var k, m: integer; Dat: array[1…7] of integer; Ani: array[1…12] of integer; begin Begin Dat[1] := 14; Dat[2] : = 10; Dat[3] := 0; Ani[1]:= 17; Ani[2]:= 17; Ani[3]:= 19; Dat[4] := 15; Dat[5] := 0; Dat[6] := 15; Dat[7] := 10; day : = 0; for k : = 1 to 7 do Ani[4]:= 21; Ani[5]:=23;Ani[6]:=22; Ani[7]:=24; Ani[8]:=16; Ani[9]:=19; if Dat[k] = 0 then day : = k; write(day); end. 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.

Давайте шаг за шагом разберем предложенные алгоритмы и определим, что будет напечатано в каждом случае.

1. Алгоритм 1

Var 
  i, n: integer; 
  Ves: array[114] of integer; 
Begin 
  Ves[1] := 25; 
  Ves[2] := 21; 
  Ves[3] := 23; 
  Ves[4] := 28; 
  Ves[5] := 30; 
  Ves[6] := 25;
  n := Ves[1]; // n = 25
  For i := 1 to 6 Do 
    If Ves[i] < n Then 
      n := Ves[i]; 
  Writeln(n); 
End.

Результат: Программа найдет минимальное значение в массиве Ves (от 1 до 6). Минимальное значение — это 21. Таким образом, будет напечатано 21.

2. Алгоритм 2

Var 
  k, b: integer; 
  Tem: array[1..12] of integer; 
Begin 
  Tem[1] := 22; 
  Tem[2] := 25; 
  Tem[3] := 20; 
  Tem[4] := 18; 
  Tem[5] := 16; 
  Tem[6] := 14;
  Ves[7] := 31; 
  Ves[8] := 28; 
  Ves[9] := 25;
  Tem[7] := 20; 
  Tem[8] := 23;
  Ves[10] := 28; 
  Ves[11] := 30; 
  Ves[12] := 27; 
  Ves[13] := 26; 
  Ves[14] := 24; 
  n := Ves[1]; // n = 25
  Tem[9] := 17; 
  Tem[10] := 19; 
  Tem[11] := 20; 
  Tem[12] := 21;
  
  For i := 1 to 14 Do 
    If Ves[i] < n Then 
      n := Ves[i]; 
  Writeln(n); 
End.

b := 0; 
For k := 1 to 12 Do 
  If Tem[k] < 19 Then 
    b := b + Tem[k]; 
Writeln(b); 
End.

Результат первой части: Минимальное значение в массиве Ves (от 1 до 14) — это 21. Результат второй части: В массиве Tem числа, меньше 19: 16, 14, 18, 17, 19 — их сумма 16 + 14 + 17 = 47. Таким образом, будет напечатано 47.

3. Алгоритм 3

var 
  k, score: integer; 
  A: array[1..9] of integer; 
begin 
  A[1] := 6; 
  A[2] := 11; 
  A[3] := 7; 
  A[4] := 12; 
  A[5] := 13; 
  A[6] := 5; 
  A[7] := 9; 
  A[8] := 3; 
  A[9] := 4;
  score := 0;
  for k := 1 to 9 do 
    if A[k] >= 9 then 
      score := score + A[k]; 
  writeln(score); 
end.

Результат: Суммируем значения: 11, 12, 13, 9. Сумма этих значений: 11 + 12 + 13 + 9 = 45. Таким образом, будет напечатано 45.

4. Алгоритм 4

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] := 5; 
  Dat[7] := 9; 
  Dat[8] := 4; 
  Dat[9] := 6;
  score := 0;
  Dat[10] := 9;

  m := 8; 
  n := 0;
  for k := 1 to 9 do 
    if A[k] >= 9 then 
      score := score + A[k]; 

  for k := 1 to 10 do 
    if Dat[k] <= m then 
    begin 
      m := Dat[k]; 
      n := k; 
    end; 
  writeln(n); 
  write(score); 
end.

Результат для n: Минимальное значение в Dat (от 1 до 10), которое меньше или равно 8 — это 4 (на позиции 8). Результат для score: Суммируем значения, подходящие под условие: 9, 10, 9 — сумма 9 + 10 + 9 = 28.

В результате, программа напечатает 8 и 28.

5. Алгоритм 5

var 
  k, day: integer; 
  Dat: array[1..7] of integer; 
  Ani: array[1..12] of integer; 
Begin 
  Dat[1] := 14; 
  Dat[2] := 10; 
  Dat[3] := 0;
  Ani[1] := 17; 
  Ani[2] := 17; 
  Ani[3] := 19;
  Dat[4] := 15; 
  Dat[5] := 0; 
  Dat[6] := 15; 
  Dat[7] := 10; 
  day := 0; 
  
  for k := 1 to 7 do 
    if Dat[k] = 0 then 
      day := k; 
  
  write(day); 
end.

Результат: Программа найдет последний нулевой элемент в массиве Dat, который стоит на позиции 5. Будет напечатано 5.

6. Алгоритм 6

var 
  k, m: integer; 
  Ani: array[1..12] of integer; 
Begin 
  m := 0; 
  for k := 1 to 12 do 
    if Ani[k] = 17 then 
      m := m + Ani[k]; 
  
  Writeln(m); 
End.

Результат: Число 17 в массиве Ani встречается 4 раза. Значит, сумма будет равна 4 * 17 = 68. Будет напечатано 68.

Теперь вы знаете, что будет напечатано в результате исполнения каждого из алгоритмов. Если у вас есть дополнительные вопросы, не стесняйтесь задавать их!