10
В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.
Алгоритмический язык
алг
нач
целтаб Dat [1:10]
цел к, m
Dat [1] = 45; Dat[2]:= 55
Dat [3] = 40; Dat[4]:= 15
Dat [5] = 20; Dat[6]:= 80
Dat [7] = 35; Dat[8]:= 70
Dat [9] = 10
Dat [10] := 45
m:= Dat[l]
нц для к от 2 до 10
если Dat[к] < Dat[l] то
m := m + Dat[k]
все
кц
вывод m
кон
Бейсик
DIM Dat(10) AS INTEGER
Dat(1)= 45 Dat(2)= 55
Dat(3)= 40 Dat(4)= 15
Dat(5)= 20 Dat(6)= 80
Dat(7)= 35 Dat(8)= 70
Dat(9)= 10 Dat(10)= 45
m = Dat(1)
FOR k = 2 TO 10
IF Dat(k) < Dat (1)
THEN
m = m + Dat(k)
END IF
NEXT k
PRINT m
END
Паскаль
var k, m: integer;
Dat: array[1..10]
of integer;
begin
Dat[1]:= 45; Dat[2]:= 55;
Dat[3]:= 40; Dat[4]:= 15;
Dat[5]:= 20; Dat[6]:= 80;
Dat[7]:= 35; Dat[8]:= 70;
Dat[9]:= 10; Dat[10]:= 45;
m:= Dat [1];
for k:= 2 to 10 do begin
if Dat[k] < Dat[1] then
begin
m:= m + Dat [k]
end
end;
write(m);
end.