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
Ну мы в школе по этой программе с котом <span>на ярлыке </span>роботали
Это часть про разложение на цифры<span>uses crt;
var a,b,c,d,e,x:integer;
begin
write('vvedi chislo');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x mod 1000 div 100;
d:=x mod 100 div 10;
e:=x mod 10;
writeln (' ',a,' ',b,' ',c,' ',d,' ',e);</span><span>end.
</span>
У кожному квадраті щось напиши.Але не пиши забагато.Орієнтована кількість речень на слайді-до пяти.Використовуй короткі речення.У кожному реченні-до восьми слів.Щоб створити презентацію треба запустити на виконання PowerPoint.Це робиться так:Вибери кнопку Пуск.Послідовно вибери <u>Усі програми,Microsoft Offise.Microsoft Office PowerPoint2007</u>
1а) -0.0222
1б) 0,0000001
1в) 6800000
1г) 4.3
2)
B=A*A (A^2)
C=B*B (A^4)
D=C*C (A^8)
E=D*C(A^12)
Result=E*A (A^13)
