// 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.
1. Программа "Анкета": program anketa; var a,b,d:string; c:char; begin writeln('Введите ваши имя и фамилию в именительном падеже: '); readln(a,b); writeln('Введите букву класса: '); readln(c); writeln('Введите ваше хобби: '); readln(d); writeln('Меня зовут ',a,' ',b,';'); writeln('Я учусь в 7 "',c,'" классе гимназии 524;'); writeln('Моё хобби - ',d,';'); writeln('Периметр прямоугольника равен 30'); writeln('Сегодня ярко светит солнце!') end. 2. Программа "Опросы": program oprosy; var a,b,c:integer; d:real; begin writeln('Введите ваши оценки по пятибалльной шкале: '); readln(a,b,c); d:=(a+b+c)/3; writeln('Ваша средняя оценка за тесты - ',d,'.'); end. 3. Программа "Периметр прямоугольника": program perimetr; var a,b,c:integer; begin writeln('Введите стороны прямоугольника: '); readln(a,b); c:=(a+b)*2; writeln('Периметр прямоугольника = ',c,'.'); end.
