ПОЖАЛУЙСТА Задача:1 D[1..2,1..6] числами 12,32,41,3,4,7,9,19,23,24,27,39 Задача 2: T[1..10,1..10] от 6 до 43.
Евгений9112
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var a:array[1..2,1..6] of integer:=
((12,32,41,3,4,7),(9,19,23,24,27,39));
Writeln(a);
var b:=MatrixRandom(10,10,6,43);
Writeln(b)
end.
Тестовое решение:
[[12,32,41,3,4,7],[9,19,23,24,27,39]]
[[29,39,20,21,36,34,10,25,32,40],[35,12,21,17,32,7,38,25,41,29],[6,33,17,19,30,25,34,37,21,23],[11,36,12,14,36,39,14,26,33,33],[17,34,39,30,14,34,29,19,20,26],[31,11,23,43,14,39,28,6,34,17],[43,17,10,15,35,42,6,13,25,36],[37,18,35,13,18,15,38,31,11,40],[39,21,22,38,36,43,18,12,43,40],[17,13,35,22,34,43,30,29,38,15]]
<span>///#1program Number1;
var b, xi: Integer;
x, y: Real;
begin
Writeln('Enter number B:');
Read(b);
if (b < 10) then Writeln(2 * b)
else if (b >= 10) then
begin
for xi := -3 to 1 do
begin
x := x + 0.1;
y := sqr(x) - x + (sin(1 / b + x) / cos(1 / b + x));
Writeln('X= ', x:0:1, ' Y= ', y:0:1);
end;
end;
end.
//////#2
var n,j,s:Integer; ser:Real;
X:Array[1..10000] of Integer;
Begin
writeln('Enter N: ');
Read(n);
for j:=1 to n do Read(X[j]);
for j:=1 to n do if (X[j]<-2) or (X[j]>2) then s:=s+X[j];
av:=s/n;
if (av>2) then
begin
X[1]:=1;
X[n]:=1;
end
else
begin
X[1]:=0;
X[n]:=0;
end;
for j:=1 to n do Write(X[j],' ');
end.
/////#3
var n,s,p:Integer;
A:Array[1..10000] of Integer;
Begin
Write('Enter N: ');
Read(n);
for p:=1 to n do Read(A[p]);
for p:=1 to n do
if (A[p]>0) and (A[p] mod 3 <> 0) then s:=s+A[p];
for p:=n div 2 to n do A[p]:=s;
for p:=1 to n do Writeln('Otvet: ',A[p]);
end.</span>