var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.
1) клик пкм
2)создать
3) папку
4) вводим название
Прямоугольна система состоит из 3 осей(x,y,z).
1)program task1;
2)uses crt;
3)const n=10;
4)var a:array[1..n] of integer;
5) i:integer;
6)sr:real;
7)begin
8)clrscr;
9)randomize;
10)for i:=1 to n do
11)begin
12)a[i]:=random(11)*1;
13)write(a[i],' ');
14)end;
15)for i:=1 to n d
16)begin
17)sr:=(a[1]*a[2]*a[3]*a[4]*a[5]*a[6]*a[7]*a[8]*a[9]*a[10])/n;
18)end;
19)writeln;
20)writeln('srednee arefmiticheskoe=',sr:6:2);
21)readln;
22)end