9 класс_Сортировка массива

Задания 1.

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

Паскаль	Алгоритмический язык
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] := 11;    Dat[9] := 15; Dat[10] := 35;    m := 50;    for k := 1 to 10 do       if Dat[k] < m then        begin           m := Dat[k];        end;    writeln(m); End.	алг    нач    целтаб 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] := 11    Dat[9] := 15    Dat[10] := 35    m := 50    нц для k от 1 до 10        если Dat[k] < m то            m := Dat[k]        все    кц    вывод m    кон

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

Паскаль	Алгоритмический язык
Var k, m, month: integer; Dat: array[1..12] of integer; Begin    Dat[1] := 5; Dat[2] := 5;    Dat[3] := 6; Dat[4] := 8;    Dat[5] := 4; Dat[6] := 5;    Dat[7] := 4; Dat[8] := 7;    Dat[9] := 4; Dat[10] := 4;    Dat[11] := 8; Dat[12] := 7;    m := Dat[1];    month := 1;    for k := 2 to 12 do       if Dat[k] <= m then        begin           m := Dat[k];           month := k;        end;    writeln(month); End.	алг    нач    целтаб Dat[1:12]    цел k, m, month    Dat[1] := 5    Dat[2] := 5    Dat[3] := 6    Dat[4] := 8    Dat[5] := 4    Dat[6] := 5    Dat[7] := 4    Dat[8] := 7    Dat[9] := 4    Dat[10] := 4    Dat[11] := 8    Dat[12] := 7    m := Dat[1]    month := 1    нц для k от 2 до 12        если Dat[k] <= m то            m := Dat[k]            month := k        все    кц    вывод month    кон

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

Паскаль	Алгоритмический язык
Var k, m: integer; Dat: array[1..10] of integer; Begin    Dat[1] := 2; Dat[2] := 5;    Dat[3] := 7; Dat[4] := 5;    Dat[5] := 4; Dat[6] := 2;    Dat[7] := 0; Dat[8] := 3;    Dat[9] := 4; Dat[10] := 5;    m := 10;    for k := 1 to 10 do       if Dat[k] < m then        begin           m := Dat[k];        end;    writeln(m); End.	алг    нач    целтаб Dat[1:10]    цел k, m    Dat[1] := 2    Dat[2] := 5    Dat[3] := 7    Dat[4] := 5    Dat[5] := 4    Dat[6] := 2    Dat[7] := 0    Dat[8] := 3    Dat[9] := 4    Dat[10] := 5    m := 10    нц для k от 1 до 10        если Dat[k] < m то            m := Dat[k]        все    кц    вывод m    кон