17..................................
const n=30;
var a:array[1..n] of integer;
i,k:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(61)-30;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=2 to n do
if a[i] > a[i-1] then k:=k+1;
writeln('k = ',k);
end.
Пример:
Исходный массив:
27 -16 19 23 12 3 25 6 -3 -22 12 13 22 -8 -3 7 -1 -20 -28 -20 25 22 13 -8 -3 -17 14 22 11 -9
k = 13
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
<u>Пример:</u>
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161
В В5 ответом будет 7, точно такой же ответ в B4
Простите я немного не поняла условия объясните пожалуйсто