Задание по информатике на тему Обработка массивов.

Задание по информатике на тему Обработка массивов.

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

Program z1;

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 m := Dat[k];

writeln(m);

End.

ОТВЕТ:

Трассировочная таблица (количество строк определите исходя из условия задачи)

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

Program z2;

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.

ОТВЕТ:

Трассировочная таблица (количество строк определите исходя из условия задачи)

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

Program z2;

Var k, m: integer;

Dat: array[1..10] of integer;

Begin

Dat[1] := 12; Dat[2] := 15;

Dat[3] := 17; Dat[4] := 15;

Dat[5] := 14; Dat[6] := 12;

Dat[7] := 10; Dat[8] := 13;

Dat[9] := 14; Dat[10] := 15;

m := 20;

for k := 1 to 10 do

if Dat[k] < m then m := Dat[k];

writeln(m);

End.

ОТВЕТ:

Трассировочная таблица (количество строк определите исходя из условия задачи)