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

Ответами к заданиям являются слово, словосочетание, число или последовательность слов, чисел.

1

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

2

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

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

алг
нач
 целтаб Dat[1:10]
 цел k, m
 Dat[1] := 16
 Dat[2] := 20
 Dat[3] := 20
 Dat[4] := 41
 Dat[5] := 14
 Dat[6] := 21
 Dat[7] := 28
 Dat[8] := 12
 Dat[9] := 15
 Dat[10] := 35
 m := 0
 нц для k от 1 до 10
  если Dat[k]>m то
   m := Dat[k]
  все
 кц
 вывод m
кон

Бейсик

DIM Dat(10) AS INTEGER
DIM k,m AS INTEGER
Dat(1) = 16: Dat(2) = 20
Dat(3) = 20: Dat(4) = 41
Dat(5) = 14: Dat(6) = 21
Dat(7) = 28: Dat(8) = 12
Dat(9) = 15: Dat(10) = 35
m = 0
 FOR k = 1 TO 10
 IF Dat(k)>m THEN
m = Dat(k)
ENDIF
NEXT k
PRINT m

Паскаль

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
 Dat[1] := 16; Dat[2] := 20;
 Dat[3] := 20; Dat[4] := 41;
 Dat[5] := 14; Dat[6] := 21;
 Dat[7] := 28; Dat[8] := 12;
 Dat[9] := 15; Dat[10] := 35;
 m := 0;
 for k := 1 to 10 do
  if Dat[k]>m then
   begin
    m := Dat[k]
   end;
 writeln(m);
End.

3

В массиве 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
кон

4

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

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

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

Бейсик

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) = I
    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 num	
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(num);
end.

5

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

6

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

7

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

8

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

9

В массиве 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
кон

10

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

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

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

Бейсик

DIM Dat(10) AS INTEGER
 Dat (1) = 7: Dat (2) =2
 Dat (3) = 3: Dat (4) = 3
 Dat (5) = 4: Dat (6) = 4
 Dat (7) = 5: Dat (8) = 5
 Dat (9) = 7: Dat (10) = 6
 day = 1: m = Dat(1)
  FOR k = 2 TO 10
   IF Dat (k) >= m THEN
    m = Dat (k)
    day = 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] := 2;
 Dat[3] := 3; Dat[4] := 3;
 Dat[5] := 4; Dat[6] := 4;
 Dat[7] := 5; Dat[8] := 5;
 Dat[9] := 7; Dat[10] := 6;
 day:= 1;
 m:= Dat[1];
 for k:= 2 to 10 do begin
  if Dat[k] >= m then
  begin
   m := Dat [k];
   day := k
  end
 end;
 write(day);
end.