Question

В таблице 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] нц для к от 1 до 14 если Ves[i] > n то n : = ves [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 = 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[1] End; Writeln(n) End.

Answer 1

Сначала производится инициализация массива, в конце - выводится на печать n.

Содержательная часть программы - эта:

n := ves[1];

For i := 1 to 14 Do

  If Ves[i] < n Then

  Begin

     n : = ves[1]

  End;

Здесь сначала n равно ves[1], затем в цикле, если ves[i] меньше n, то n  присваивается равным ves[1]. Если бы было присвоение ves[i], то получился бы алгоритм поиска минимального элемента (ответ был бы 21 = min[25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]). Но здесь вне зависимости от значений всегда присваивается n = ves[1], поэтому в n в любой момент времени записан первый вес (25), он и будет выведен на экран.

Ответ: 25