ответ: 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
k,l,m,i,j: integer;
var a: array[1..n] of integer;
begin
k:=0; m:=0; j:=0; l:=0;
for i:=1 to n do begin
a[i]:=random(10);
write (a[i]:3);
if (i>1) and (a[i]>=a[i-1])
then begin k:=k+1; j:=i; end
else
if (k>0) and (k>l)
then begin l:=k; m:=j; k:=0 end
else k:=0;
end;
if (k>0) and (k>l)
then begin l:=k; m:=n end;
writeln;
writeln;
for i:=m-l to m do
write (a[i]:3);
l:=l+1;
writeln;
writeln ('Длина = ',l)
end.
результат:
9 2 5 0 8 5 7 7 3 7
5 7 7
Длина = 3
* рандомный ввод массива можно заменить обычным с клавиатуры