Решите плиз !!!!!!!!!!! В таблице Dat хранятся данные о количестве учеников в классах...

Question

Решите плиз !!!!!!!!!!! В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..11] of integer; Begin Dat[1] := 20; Dat[2] := 25; Dat[3] := 19; Dat[4] := 25; Dat[5] := 26; Dat[6] := 22; Dat[7] := 24; Dat[8] := 28; Dat[9] := 26; Dat[10] := 21; Dat[11] := 27; m := 0; for k := 1 to 11 do if Dat[k] < 25 then begin m := m + 1 end; writeln(m) End.

Answer 1

Здесь с помощью цикла считаем, сколько чисел меньше 25.

Dat[1] := 20; // 1

Dat[2] := 25;

Dat[3] := 19; // 2

Dat[4] := 25;  

Dat[5] := 26;

Dat[6] := 22;  // 3

Dat[7] := 24; // 4

Dat[8] := 28;

Dat[9] := 26;

Dat[10] := 21;  // 5

Dat[11] := 27;

Ответ: 5