12+ Свидетельство СМИ ЭЛ № ФС 77 - 70917 Лицензия на образовательную деятельность №0001058 |
Пользовательское соглашение Контактная и правовая информация |
Сложность вопроса:
-В таблице 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]:=23;
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] < 23 then
m:=m + Dat[k];
writeln(m)
End.