Исходная :
5*<span>4-2
</span><span>5-4:2
</span>Новая:
<span>18 и 3</span>
Вот тебе решение первой .
program p1;
uses crt;
var a:array[1..10,1..10] of integer;
i,j,n,max,min,s:integer;
begin
read(N);
for i:=1 to N do begin
For j:=1 to N do begin
a[i,j]:=random (21) -10 ;
write(a[i,j]:5);
end;
writeln;
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to N do begin
If max<a[i,i] then begin
max:=a[i,i];
end;
If min>a[i,i] then begin
min:=a[i,i];
end;
end;
s:=max+min;
writeln;
write(s);
end.
Const c:array [1..10] of integer = (-7,3,0,2,-1,4,8,-9,1,6);
var b,d:array [1..10] of integer;
p,k,max,i,j,tmp:integer;
begin
p:=1;
for i:=1 to 10 do
if c[i] > 0 then p:=p*c[i];
k:=0;
for i:=1 to 10 do
if c[i] < 0 then inc(k);
d:=c;
max:=d[1];
for i:=2 to 10 do
if c[i] > max then max:=c[i];
writeln ('Max: ',max);
writeln ('Kol-vo otriz. elementov: ',k);
writeln ('Proizvedenie: ',p);
for i:=1 to 10 do
if c[i] >= 0 then b[i]:=c[i]+10 else
if c[i] < 0 then b[i]:=c[i]*c[i];
writeln ('New massiv: ');
for i:=1 to 10 do write (b[i],' ');
writeln;
for i:=1 to 9 do
for j:=i+1 to 10 do
if d[j] > d[i] then
begin
tmp:=d[j];
d[j]:=d[i];
d[i]:=tmp;
end;
for i:=1 to 10 do write (d[i],' ');
writeln;
end.
Var p,m,v:real; i:integer;
begin
m:=0.45;
p:=0.5-0.1;
for i:=0 to round((1-0.5)/0.1) do
begin
p:=p+0.1;
v:=m/p;
writeln(p:4:1,' кг/м^3, V = ',v:5:3,' м^3');
end;
end.
Результат:
<span> 0.5 кг/м^3, V = 0.900 м^3
0.6 кг/м^3, V = 0.750 м^3
0.7 кг/м^3, V = 0.643 м^3
0.8 кг/м^3, V = 0.563 м^3
0.9 кг/м^3, V = 0.500 м^3
1.0 кг/м^3, V = 0.450 м^3</span>
Клавиша на клавиатуре TAB.