В таблице Dat хранятся данные о количестве проданных единиц товаров 10 типов (Dat[1] — проданных товаров первого типа, Dat[2] — второго типа и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх языках программирования.

Алгоритмический язык

алг		
нач		
 целтаб Dat[1:10]	
 цел k, 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[1]
  нц для к от 4 до 10
  если Dat[к] >= Dat[1] то
   m:= m + Dat [к]	
  все		
 кц		
 вывод 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 = 4 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:= 4 to 10 do begin
  if Dat[k] >= Dat[1] then
  begin
   m:= m + Dat[k]
  end
 end;
 write(m);
end.