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]
нц для i от 1 до 14
если Ves[i] < n то
n := Ves[i]
все
кц
вывод n
кон DIM Ves(14) AS INTEGER
DIM 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
END var
Ves: array[1..14] of integer;
i, n: 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 begin
if Ves[i] < n then
n := Ves[i];
end;
writeln(n);
end.