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>
If y=1/a-5;
if y=^a-3/a-3/^a-2/a-2;
<u>1. Поиск по поисковому серверу</u>
<u>2. Переход по гипер ссылкам</u>
<span><u>3. Ввод ссылки в адресную строку</u></span>
Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
<span>end.</span>