Program kol_vo_elementov;
var a:array[1..10] of integer;
i, s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(25);
write(a[i],' ');
if (a[i]>0) then
s:=s+a[i];
end;
writeln('s=',s);
end.
Var x,y,i:integer;
begin
writeln('x':3,'y':5);
for i:=1 to 7 do
begin
x:=random(-4,7);
y:=x*x+1;
writeln(x:3,y:5);
end;
<span>end.</span>
pow(a,b) - возведение a в степень b
pow(m,1.0/3)
1. Объект - любая часть окружающей действительности, воспринимаемой человеком как единое целое
2. Объекты бывают: предметы, явления, процессы
3. Объекты предметы: телевизор, портфель, трактор
4. Объекты процессы: рисование, свечение, строительство
5. Объекты явления: землетрясение, шторм, наводнение
6. Каждый объект имеет имя, которое отличает его от других объектов
7. Имена бывают общие, единичные, собственные
8. Общие имена: вокзал, морс, горы
9. Каждый объект имеет имя, которое позволяет отличать его от других предметов
10. <span>Европейский город - общее имя
</span>11. Собака Шарик - имя собственное
12. Берлин в Германии - единичное имя
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var b := a.Where(p -> p > 0).Sorted.ToArray;
if b.Length > 0 then
begin
var j := 0;
for var i := 0 to a.High do
if a[i] > 0 then begin
a[i] := b[j];
j += 1
end
else
a[i] := 0
end;
a.Println
end.