Программа на PascalABC(программу из блокнота копируете и вставляете в pascalABC)
<!DOCTYPE html>
<html>
<head>
<script>
function BbIBOD()
{
let n = document.getElementById("BBOD").value;
let BbIBOD = document.getElementById("BbIBOD");
let S = "";
let F = "";
for (let j = 0; j < n; j++)
{
S += '*';
}
for (let i = 0; i < n; i++)
{
F += "<div>" + S + "</div>";
}
BbIBOD.innerHTML = F;
}
</script>
</head>
<body>
<form onSubmit="BbIBOD(); return false;">
<label for="BBOD" >n = </label><input id="BBOD" type="text">
<div id="BbIBOD"></div>
</form>
</body>
</html>
1*10^1+3*10^0+2*10^-1+1*10^-2
1*8^2+2*8^1+3*8^0+2*8^-1
1*16^1+2*16^0+3*16^-1
Const
n=10;
var i,sum:integer;
mass:array[1..n] of integer;
begin
for i:=1 to n do
begin
mass[i]:=random(80)-5;
write('mass[',i,']= ',mass[i]);
writeln;
if mass[i]>0 then sum:=sum+mass[i];
end;
writeln('Сумма положительных элементов массива равна ',sum);
end.
<span>
</span>