var
masiv:array[-10000..10000] of integer;
begin
for var i := -10000 to 10000 do
begin
randomize;
masiv[i] := random(-10000, 10000);
end;
end.
145139142130142
слово - СЛОВО
1)
a и b - целочисленные.
а)a div b
б)a mod b
2)
s, p, d, e - целочисленные.
d:= d div 10;
e:= d mod 10;
s:= d+e;
p:= d*e;
3)
a, b, s, r, p, ch - вещественные.
a:=sqr(a);
b:=sqr(b);
s:=a+b;
r:=a-b;
p:=a*b;
ch:=a/b;