только 3вопрос.Оивт 7кл кр.ответ ответьте - id1803080420220208 от Olya10783 08.02.2022 22:24

Question

Информатика: только 3вопрос.Оивт 7кл кр.ответ ответьте ​

Olya10783 · Accepted Answer

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
var flag:=true;
var k:=0;
var ap:=a[0];
for var i:=1 to a.Length-1 do begin
    if a[i]>ap then begin
      if flag then begin k+=1; flag:=false end
      end
    else flag:=true;
    ap:=a[i]
    end;
Writeln('Кол-во участков возрастания: ',k)
end.

Пример
n= 15
-17 -2 -11 14 6 -3 -16 13 -13 -12 -16 2 15 -1 -20
Кол-во участков возрастания: 5

только 3вопрос.Оивт 7кл кр.ответ ответьте​

MOGZ ответил

только 3вопрос.Оивт 7кл
кр.ответ
ответьте