, .
. . .
. , . , , , . .
: [20], B [5,3].
1 , , ..
. :
1. :
Var
_: array [1..N] of _;
, N .
:
var
a, b: array [1..10] of real;
d, y: array [1..5,1..5] of integer;
2. (, ).
:
type
mas= array [1..10] of real;
var
c,d:mas; { mas}
, (, int, char, ). : 1..10, N..M.
. [N..M} .
, . (, ). - .
:
program PR8;
const
y: array [1..5] of integer=(7,1,5,3,9);
var
k: integer;
begin
for k:=1 to 5 do
writeln (y[k]);
end.
. ( FOR)
: 10 . .
:
program PR9;
var
A: array[1..10] of integer;
k: integer;
begin
for k:=1 to 10 do
readln (A[k]);
for k:=1 to 10 do
writeln (A[k]);
end.
() .
: (3;4):
:
) :
program PR10;
var
a:array [1.. 3, 1.. 4] of integer;
i; j:integer;
begin
for i:=1 3
for j:=1 4
readln (a[i, j]);
for i:=1 3
for j:=1 4
writeln (a[i, j]);
end.
) :
begin
for i:=1 4
for j:=1 3
readln ([j, i]); { }
|
|
. , . , , , , , .
: .
:
program Pr11;
var
a: array [1..100] of integer;
p, n, i: integer;
begin
p: =1;
writeln (' n<=100');
readln (n);
writeln (' ');
for i:=1 to n do
begin
writeln( a[ , i, ]= ]);
readln (a[i]);
end;
for i:=1 to n do
if a[i]>0 then p:= p * a[ i ];
writeln (' =', p);
readln;
end.
: .
:
program Pr12;
var
a:array [1.. 10, 1.. 10] of integer;
p, i, j, n, m: integer;
begin
writeln( n<=10, m<=10 );
readln (n,m);
writeln( );
for i:=1 to n do
for j:=1 to m do
readln(a[i, j]);
p:=1;
for j:=1 to m do
if a[2, j]>0 then p:= p * a[2, j];
writeln( p=, p);
readln;
end.
1. . .
2. . .
3. . .
4. .
5. .
6. .
7. .