Question

В таблице Work хранятся данные о количестве заказов, принятых фирмой "Конфетти" с первого по 15 декабря. (Work[1] – число заказов, принятых 1 декабря, Work[2] – 2 декабря и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Var k, m: integer;
Work: array[1..15] of integer;
Begin
Work[1] := 5; Work[2] := 4;
Work[3] := 5; Work[4] := 7;
Work[5] := 6; Work[6] := 12;
Work[7] := 7; Work[8] := 3;
Work[9] := 9; Work[10] := 7;
Work[11] := 0; Work[12] := 9;
Work[13] := 1; Work[14] := 0;
Work[15] := 8;
m := 0;
For k := 1 to 15 Do
If Work[k] > 6 Then
Begin
m := m + 1;
End;
Writeln(m);
End.

Answer 1

Var k, m: integer; // описываютя целые переменные k и m Work: array[1..15] of integer; // описывается массив, который состоит из 15 целых чисел Begin Work[1] := 5; Work[2] := 4; // элементам массива присваиваются значения Work[3] := 5; Work[4] := 7; Work[5] := 6; Work[6] := 12; Work[7] := 7; Work[8] := 3; Work[9] := 9; Work[10] := 7; Work[11] := 0; Work[12] := 9; Work[13] := 1; Work[14] := 0; Work[15] := 8; m := 0; // переменной m (счетчику) присваивается начальное значение 0 For k := 1 to 15 Do //в цикле с параметром (параметр здесь это k), который меняется от 1 до 7 If Work[k] < 7 Then //значения всех элементов массива сравниваются с 7. Begin //Если это значение < 7, то m := m + 1; //значение счетчика увеличивается на 1 End; Writeln(m); //полученное значение счетчика выводится на экран End. Проанализировав значения элементов массива, получим, что значение m=8