ответ: 7
Объяснение:
Данная программа проверяет значения ячеек массива от Dat[1] до Dat[11], если значение больше 22, тогда к переменной m прибавляется 1.
Изначально m = 0
Dat[1] := 20; > 22 нет, переходим к следующему шагу.
Dat[2] := 25; > 22 да, к m прибавляем 1, m = 0 + 1 = 1
Dat[3] := 19; > 22 нет, переходим к следующему шагу.
Dat[4] := 25; > 22 да, к m прибавляем 1, m = 1 + 1 = 2
Dat[5] := 26; > 22 да, к m прибавляем 1, m = 2 + 1 = 3
Dat[6] := 22; > 22 нет, переходим к следующему шагу.
Dat[7] := 24; > 22 да, к m прибавляем 1, m = 3 + 1 = 4
Dat[8] := 28; > 22 да, к m прибавляем 1, m = 4 + 1 = 5
Dat[9] := 26; > 22 да, к m прибавляем 1, m = 5 + 1 = 6
Dat[10] := 21; > 22 нет, переходим к следующему шагу.
Dat[11] := 27; > 22 да, к m прибавляем 1, m = 6 + 1 = 7
Строка writeln(m); означает, что программа должна вывести на экран значение переменной m
Значит в результате работы программы будет напечатано: 7
var
n,i,otv,l,m,h,k: integer;
begin
writeln ('сколько человек в группе');
read (n);
for i:=1 to n do
begin
writeln ('какой язык ты изучаешь: 1-англ,2-нем,3-франц,0-никакой');
read (otv);
case otv of
0: l:=l+1;
1: h:=h+1;
2: k:=k+1;
3: m:=m+1;
end;
end;
writeln ('английский язык изучает',h,'человек');
writeln ('немецкий язык изучает',k,'человек');
writeln ('французский язык изучает',m,'человек');
writeln (l,'человек не изучает никакой язык');
end.