<span><span>program massiv6;
</span><span>02.<span>uses crt;
</span></span><span>03.<span>const N=10;
</span></span><span>04.<span>type x=array [1..<span>N] </span>of integer;
</span></span><span>05.<span>var a:x;
</span></span><span>06.<span>i:integer;
</span></span><span>07.<span>s:integer;
</span></span><span>08.begin
</span><span>09.clrscr;
</span><span>10.randomize;
</span><span>11.<span>for i:=1 to <span>N </span>do
</span></span><span>12.begin
</span><span>13.<span>a[i]:=-100+random(201);
</span></span><span>14.<span>write (A[i]:5)
</span></span><span>15.<span>end;
</span></span><span>16.<span>writeln;
</span></span><span>17.<span>s:=0;
</span></span><span>18.<span>for i:=1 to <span>N </span>do
</span></span><span>19.<span>if a[i]>0 then
</span></span><span>20.begin
</span><span>21.s:=s+a[i]
</span><span>22.<span>end;
</span></span><span>23.<span>writeln (‘Сумма положительных элементов = ’,s:5);
</span></span><span>24.readln
</span><span>25.<span>end<span>.</span></span></span></span>
1) 15,18,21,24... 2) -24. ,- 26
Var
x:integer;
begin
readln(x);
writeln(5*x+5*x/5+x);
end.
Программа для решения задачи:
var x,f:real;
begin
write('x=');readln(x);
if x<=-3 then f:=9 else f:=1/(x*x+1);
writeln('f(x)=',f:5:3);
<span>end.
Пример:
x=-4
f(x)=9.000
Блок-схема - в прилагаемом файле.</span>
Var a:array[1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do begin
a[i]:=1+random(10);
write(a[i],' ');
end;
count:=0;
for i:=1 to 10 do begin
if a[i]=1 then
count:=count+1;
end;
writeln('Кол-во элементов равных единице=', count);
end.