А) А6=51231 -> 5×6^4 + 1×6^3 + 2×6^2 + 3×6^1 + 1×6^0
Понятно по принципу?
//Pascal
//Массив заполняется случайными числами от 1 до 10
var
A: array [1..10] of byte;
i: byte;
Sum: real;
begin
randomize;
for i := 1 to 10 do
begin
A[i] := random(9)+1;
write(A[i]:3);
Sum := Sum + A[i] + 2;
end;
writeln;
for i := 1 to 10 do writeln(Sum/sqrt(abs(A[i])):0:2);
writeln;
end.
'Microsofr QBasic 1.0
SCREEN 12
LINE (100, 150)-(350, 300), 3, B
LINE (350, 100)-(450, 300), 3, B
CIRCLE (200, 330), 30, 3, , , 640 / 480
CIRCLE (400, 330), 30, 3, , , 640 / 480
Var a : array [1..3] of array [1..3] of integer;
i,j : shortint;
c1,c2,s1,s2 : integer;
begin
a[1][1]:=-10;
a[1][2]:=20;
a[1][3]:=13;
a[2][1]:=-22;
a[2][2]:=11;
a[2][3]:=-5;
a[3][1]:=4;
a[3][2]:=12;
a[3][3]:=-8;
s1:=0; s2:=0; c1:=0; c2:=0;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
if a[i][j]>0 then begin
s1:=s1+a[i][j];
inc (c1);
end else begin
s2:=s2+a[i][j];
inc (c2);
end;
end;
end;
writeln (s1/c1:0:0);
<span> writeln (s2/c2:0:2);
</span>end.
Ну 20 строк и 5 столбцов но я не уверен на 100%