Сфе́ра — геометрическое место точек в пространстве, равноудаленных от некоторой заданной точки. Расстояние от точки сферы до её центра называется радиусом сферы. А шар
Шар — геометрическое тело; совокупность всех точек пространства, находящихся от центра на расстоянии, не больше заданного. Это расстояние называется радиусом шара. Шар образуется вращением полукруга около его неподвижного диаметра
Объяснение:
И смотри: Сфера это место точек, а шар это тело.
И ещё сфера имеет пощадь но, но он не имеет объема. А шар наоборот. поэтому я не могу их подразумевать как одинаковые
program massiv;
var b:array[1..100]of integer;
r,n,m,i,p,k,a:integer;
begin
randomize;writeln ('a=');readln(a);
writeln('n=');readln(n);
for i:=1 to n do begin
b[i]:=random(50)-25;
writeln('a[',i,']=');
if b[i]>0 then begin r:=r+b[i];p:=r*2;
if b[i]>a then k:=k+1;
if ((b[i]<a)and(b[i]>0)) then m:=m+1;
end;end;writeln('удвоенная сумма положительных элементов ',p);
writeln('kол-во элементов массива , значения которых больше заданного числа',k);
writeln('количество положительных элементов не превсходящих заданного числа',m);
end.
