Program n1;
const n=15;
var a: array[1..n] of integer;
i,k: integer;
begin
write('массив: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
k:=0;
write('полученный массив: ');
for i:=1 to n do if a[i]<0 then
begin
a[i]:=a[i]*a[i];
k:=k+1;
end;
for i:=1 to n do write(a[i],' ');
writeln;
write('кол-во замен: ',k);
end.
Від програми в якому він створюється, редагується, зберігається.
A := 3 * 100 + 20 = 320
b:= 320*2-240 = 400
Ответ:400
var n,n1,i: integer;
<span>begin
</span><span> write('N = '); readln(n);
</span><span> if n mod 2=0 then i:=2
</span><span> else i:=1;
</span><span> n1:=1;
</span><span> repeat
</span><span> n1:=n1*i;
</span><span> i:=i+2;
</span><span> until i>n;
</span><span> writeln('N1 = ',n1);
</span><span>end.
</span>N = 6N1 = 48
N = 5N1 = 15
<span>
</span>