Siozhvys
4 год назад
в таблице Ves хранятся данные о весе в килограммах по группе учищихся спортивной школы (Ves [1] - вес первого учащегося , ves [2] - вес второго учащегося и т.д). Определите,что будет в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках: алгначцелтаб Ves [1:14]цел i, nVes[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 INTEGERDIS i,n AS INTEGERVes(1)= 25: Ves(2)= 21Ves(3)= 23: Ves(4)= 28Ves(5)= 30: Ves(6)= 25Ves(7)= 31: Ves(8)= 28Ves(9)= 25: Ves(10)= 28Ves(11)= 30: Ves(12)= 27Ves(13)= 26: Ves(14)= 24n = ves(1)FOR i = 1 TO 14IF Ves(i) < n THENn : = ves (i)END IFNEXT iPRINT nVar i, n: integer;Ves: array[1..14] of integer;BeginVes[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 DoIf Ves[i] < n ThenBeginn : = ves[1]End;Writeln(n)End.
ОТВЕТЫ
Сигизмунд
Oct 24, 2020
Сначала производится инициализация массива, в конце - выводится на печать 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
235
Смежные вопросы:
