Циклический алгоритм обработки массива чисел, записанный на алгоритмическом языке

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

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

DIM V(12) AS
INTEGER
V(1)=52
V(2)=71
V(3)=88
V(4)=31
V(5)=17
V(6)=82
V(7)=74
V(8)=91
V(9)=24
V(10)=61
V(11)=50
V(12)=31
k= 0
FOR i = 1 TO 12
IF (V(i)>50) and
(V(i)<80) THEN
k=k+1
END IF
NEXT i
PRINT k
END

Бейсик

var k, i: integer;
V: array[1..12] of integer;
begin
V[1]:=52;
V[2]:=71;
V[3]:=88;
V[4]:=31;
V[5]:=17;
V[6]:=82;
V[7]:=74;
V[8]:=91;
V[9]:=24;
V[10]:=61;
V[11]:=50;
V[12]:=31;
k:= 0;
for i:=1 to 12 do
if (V[i]>50) and
(V[i]<80) then
k=k+1;
write(k);
end.

Паскаль

алг
нач
целтаб V[1:12]
цел k, i
V[1]:=52
V[2]:=71
V[3]:=88
V[4]:=31
V[5]:=17
V[6]:=82
V[7]:=74
V[8]:=91
V[9]:=24
V[10]:=61
V[11]:=50
V[12]:=31
k:= 0
нц для i от 1
до 12
если (V[i]>50)
и (V[i]<80) то
k=k+1
все
кц
вывод k
кон

В таблице 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] TO
   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[l] then
  begin
   m:= m + Dat [k]
  end
 end;
write (m);
end.

В массиве Phone хранятся данные о расходах за телефон за год в рублях (Phone[l] — данные за январь, Phone[2] — за февраль и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трех алгоритмических языках. Ответ запишите без пробелов.

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

DIM Phone (12) AS
INTEGER
Phone(1)=52
Phone(2)=71
Phone (3)=88
Phone (4)=31
Phone (5)=17
Phone (6)=82
Phone (7)=74
Phone (8)=91
Phone (9)=24
Phone (10)=61
Phone (11)=50
Phone (12)=31
d = 1: s= Phone(1)
FOR i = 2 TO 12
IF Phone(i) >s
THEN
s= Phone(i)
d=i
END IF
NEXT i
PRINT s,d
END

Бейсик

var d, s, i: integer;
Phone: array[1..12]
of шnteger;
begin
Phone[1]:=52;
Phone[2]:=71;
Phone[3]:=88;
Phone [4]:=31;
Phone [5]:=17;
Phone [6]:=82;
Phone [7]:=74;
Phone [8]:=91;
Phone [9]:=24;
Phone [10]:=61;
Phone [11]:=50;
Phone [12]:=31;
d:= 1; s:= Phone[1];
for i:=2 to 12 do
begin
if Phone[i] >s then
begin
s:= Phone[i]; d:=i
end
end;
write(s,d);
end.

Паскаль

алг
нач
целтаб
Phone[1:12]
цел d, s, i
Phone[1]:=52;
Phone[2]:=71;
Phone [3]:=88;
Phone [4]:=31;
Phone [5]:=17;
Phone [6]:=82;
Phone [7]:=74;
Phone [8]:=91;
Phone [9]:=24;
Phone [10]:=61;
Phone [11]:=50;
Phone [12]:=31;
d:= 1; s:=
Phone[1]
нц для i от 2 до
12
если Phone[i] >s
то
s:= Phone[i]; d:=i
все
кц
вывод s,d
кон

В таблице 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.

В таблице 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.

В таблице Dat хранятся положительные или отрицательные целые числа. Определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках.

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

алг
нач
    целтаб Dat[1:10]
    цел k, m, num
    Dat[1] := -7; Dat[2] := -8
    Dat[3] := 3; Dat[4] := 6
    Dat[5] := -4; Dat[6] := 3
    Dat[7] := 5; Dat[8] := 5
    Dat[9] := 7; Dat[10] := 1
        num := 1; m := Dat[1]
        нц для к от 2 до 10
        если Dat[к]* m < 0 то
            m := Dat[к]; num := к
        все
    кц
    вывод m
кон

Бейсик

DIM Dat(10) AS INTEGER
    Dat (1) = -7: Dat(2) = -8
    Dat (3) = 3: Dat(4) = 6
    Dat (5) = -4: Dat(6) = 3
    Dat (7) = 5: Dat(8) = 5
    Dat(9) = 7: Dat(10) = 1
    num = 1: m = Dat(1)
        FOR k = 2 TO 10
            IF Dat(k)* m < 0 THEN
                m = Dat(k)
                num - k
            END IF
        NEXT k
PRINT m
END

Паскаль

var k, m, num: integer;
Dat: array[ 1.. 10 ] of integer;
begin
    Dat[1] := -7; Dat[2] := -8;
    Dat [ 3 ] : = 3; Dat[4] : = 6;
    Dat [5] := -4; Dat[6] := 3;
    Dat[7] := 5; Dat[8] := 5;
    Dat [9] := 7; Dat[10] := 1;
    num:= 1; m:= Dat[1];
    for k:= 2 to 10 do begin
        if Dat[k]* m < 0 then
        begin
            m := Dat [k]; num := k
        end
    end;
    write (m);
end.

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

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

алг
нач
 целтаб Dat[1:12]
 цел k, m, month
 Dat[1]:= 2; Dat[2]:= 8
 Dat[3]:= 6; Dat[4]:= 3
 Dat[5]:= 8; Dat[6]: = 2
 Dat[7] := 3; Dat[8] := 7
 Dat[9]:= 8; Dat[10]: = 3
 Dat[11]:= 8; Dat[12]: = 7
 month := 7; m := Dat[7]
  нц для к от 8 до 12
   если Dat[к] > m то
    m := Dat[к];
    month := к
  все
 кц
 вывод month
кон

Бейсик

DIM Dat(12) AS INTEGER
Dat(1)= 2: Dat(2)= 8
Dat(3)= 6: Dat(4) = 3
Dat(5)= 8: Dat(6)- 2
Dat(7)= 3: Dat(8)= 7
Dat(9)= 8: Dat(10)= 3
Dat(11)= 8: Dat(12)= 7
month = 7: m = Dat(7)
FOR k = 8 TO 12
  IF Dat(k) > m THEN
    m = Dat(k)
    month = k
  END IF
NEXT k
PRINT month
END

Паскаль

var k, m, month: integer;
Dat: array[1..12]
 of integer;
begin
 Dat[1] := 2; Dat[2] := 8;
 Dat[3] := 6; Dat[4] := 3;
 Dat[5] := 8; Dat[6] := 2;
 Dat[7] := 3; Dat[8] := 7;
 Dat[9] := 8; Dat[10] := 3;
 Dat[11] := 8; Dat[12] := 7;
 month := 7; m := Dat[7];
 for k := 8 to 12 do begin
  if Dat[k] > m then begin
   m := Dat [k];
   month := k
  end
 end;
write(month);
end.

В таблице 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] TO
   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[l] then	
  begin	
   m: = m + Dat [k]	
  end	
 end;	
write(m); 
end.

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

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

алг
нач
 целтаб Dat[1:10]
 цел k, m, day
 Dat [1] := 7; Dat [2] := 1
 Dat [3] := 3; Dat [4] := 3
 Dat [5] := 2; Dat [6] := 2
 Dat [7] := 5; Dat [8] := 5
 Dat[9] := 7; Dat [10] := 1
  day := 1; m := Dat[1]
  нц для к от 2 до 10
  если Dat[к] < m то
   m := Dat[к]; day := к
  все
 КЦ
 вывод day
кон

Бейсик

DIM Dat (10) AS INTEGER
 Dat (1) = 7: Dat (2) = 1
 Dat (3) = 3: Dat (4) = 3
 Dat (5) = 2: Dat (6) = 2
 Dat (7) = 5: Dat (8) = 5
 Dat (9) = 7: Dat (10) = 1
 day = 1: m = Dat(1)
  FOR k = 2 TO 10
   IF Dat(k) < m THEN
    day = k
    m - Dat(k)
   END IF
  NEXT k
PRINT day
END

Паскаль

var k, m, day: integer;
Dat: array[1..10] of integer;
begin
 Dat [1] := 7; Dat [2] := 1;
 Dat [3] := 3; Dat [4] := 3;
 Dat [5] := 2; Dat [6] := 2;
 Dat [7] := 5; Dat [8] := 5;
 Dat [9] := 7; Dat [10] := 1;
 day:= 1; m:= Dat[l];
 for k:= 2 to 10 do begin
  if Dat[k] < m then
  begin
   m := Dat [k];
   day := k
  end
 end;
 write(day); 
end.

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

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

алг
нач
 целтаб Dat[1:12]
 цел k, m, month
 Dat[1]:= 2; Dat[2]:= 8
 Dat[3]:= 6; Dat[4]:= 3
 Dat[5]:= 8; Dat[6]:= 2
 Dat[7] := 3; Dat[8] := 7
 Dat[9]:= 4; Dat[10]:= 4
 Dat[11] := 8; Dat[12] := 7
 month := 1; m := Dat[1]
  нц для к от 2 до 6
   если Dat[к] > m то
    m := Dat[к]
    month := к
   все
  кц
вывод month
кон

Бейсик

DIM Dat(12) AS INTEGER
Dat(1)= 2: Dat(2)= 8
Dat(3)= 6: Dat(4)= 3
Dat(5)= 8: Dat(6)= 2
Dat(7)= 3: Dat(8)= 7
Dat(9)- 4: Dat(10)= 4
Dat(11)= 8: Dat(12)= 7
month = 1: m = Dat(1)
FOR k = 2 TO 6
  IF Dat(k) > m THEN
    m = Dat(k)
    month = k
  END IF
NEXT k
PRINT month
END

Паскаль

var k, m, month: integer;
Dat: array[1.,12]
 of integer;
begin
 Dat[1] := 2; Dat[2] := 8;
 Dat[3] := 6; Dat[4] := 3;
 Dat[5] : = 8; Dat[6] := 2;
 Dat[7] : = 3; Dat[8] := 7;
 Dat[9] := 4; Dat[10] := 4;
 Dat[11] := 8; Dat [12] := 7;
 month := 1; m := Dat[1];
 for k := 2 to 6 do begin
  if Dat[k] > m then
  begin
   m := Dat [k];
   month := k
  end
 end;
 write(month);
end.