Var s:integer;
begin
writeln('Введите площадь квадрта');
readln(s);
writeln('Сторона квадрта = ',sqrt(s));
writeln('Периметр квадрта = ',sqrt(s)*4);
end.
Const n=3; m=4;
var a:array[1..n,1..m] of real;
i,j:integer; min:real;
begin
Randomize;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=10*random-5;
write(a[i,j]:6:2);
end;
writeln;
end;
min:=abs(a[i,j]);
for i:=1 to n do
for j:=1 to m do
if abs(a[i,j])<min then min:=abs(a[i,j]);
for i:=1 to n do
for j:=1 to m do a[i,j]:=a[i,j]/min;
writeln('min = ',min:6:2);
writeln('Измененная матрица:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:6:2);
writeln;
end;
end.
Пример:
<span>Исходная матрица:
4.25 2.99 -2.67 -0.88
-0.80 3.69 -1.94 -1.18
-3.37 0.65 4.62 1.45
min = 0.65
Измененная матрица:
6.53 4.61 -4.11 -1.36
-1.23 5.68 -2.99 -1.81
-5.19 1.00 7.10 2.23</span>
Посчитаем как обычные числа:
a=1
b=2
d=3
a=2*1=2
b=2+2*3=2+6=8
c=3+1=4
d=2+8-4=6
a=2+8+4=14
<em>ответ
a=14</em>
<em>b=8</em>
<em>c=4</em>
<em>d=6</em>