|
Модератор
7534 / 4394 / 2785
Регистрация: 22.11.2013
Сообщений: 12,588
|
|
23.11.2017, 01:10
|
2
|
 Сообщение было отмечено Zheka4190 как решение
Решение
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
| const m=5; n=5; W=5;
var
a: array [1..m,1..n] of Integer;
i, j: Integer;
begin
Randomize;
for i:=1 to m do for j:=1 to n do a[i,j]:=-10+Random(21);
WriteLn('A =');
for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:5); WriteLn; end;
for i:=1 to m do if a[i,3]<0 then a[i,3]:=0;
for j:=1 to n do if a[5,j]>0 then a[5,j]:=Sqr(a[5,j]);
WriteLn('A''=');
for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:4); WriteLn; end;
end. |
|
Или с динамическимми размерами, если поддерживается: | Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| const W=5; ti=5; tj=3;
var
a: array of array of Integer;
i, j, m, n: Integer;
begin
Randomize;
repeat Write('Введите m (>=',ti,') n (>=',tj,'): '); ReadLn(m,n);
until (m>=ti) and (n>=tj);
SetLength(a,m,n);
for i:=1 to m do for j:=1 to n do a[i,j]:=-10+Random(21);
WriteLn('A =');
for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
for i:=1 to m do if a[i,tj]<0 then a[i,tj]:=0;
for j:=1 to n do if a[ti,j]>0 then a[ti,j]:=Sqr(a[ti,j]);
WriteLn('A''=');
for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:W); WriteLn; end;
end. |
|
или не поддерживается: | Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| const W=5; ti=5; tj=3;
type
PIntArr = ^TIntArr;
TIntArr = array [1..$FFFE div SizeOf(Integer)] of Integer;
PPIntArr = ^TPIntArr;
TPIntArr = array [1..$FFFE div SizeOf(PIntArr)] of PIntArr;
var
a: PPIntArr;
i, j, m, n: Integer;
begin
Randomize;
repeat Write('Введите m (>=',ti,') n (>=',tj,'): '); ReadLn(m,n);
until (m>=ti) and (n>=tj);
GetMem(a,m*SizeOf(a^[1])); for i:=1 to m do GetMem(a^[i],n*SizeOf(a^[1]^[1]));
for i:=1 to m do for j:=1 to n do a^[i]^[j]:=-10+Random(21);
WriteLn('A =');
for i:=1 to m do begin for j:=1 to n do Write(a^[i]^[j]:W); WriteLn; end;
for i:=1 to m do if a^[i]^[tj]<0 then a^[i]^[tj]:=0;
for j:=1 to n do if a^[ti]^[j]>0 then a^[ti]^[j]:=Sqr(a^[ti]^[j]);
WriteLn('A''=');
for i:=1 to m do begin for j:=1 to n do Write(a^[i]^[j]:W); WriteLn; end;
for i:=1 to m do FreeMem(a^[i],n*SizeOf(a^[1]^[1])); FreeMem(a,m*SizeOf(a^[1]));
end. |
|
или | Pascal | 1
2
3
4
5
6
7
8
| {$R-}
const W=5; ti: Integer=5; tj: Integer=3;
type
PIntArr = ^TIntArr;
TIntArr = array [1..1] of Integer;
PPIntArr = ^TPIntArr;
TPIntArr = array [1..1] of PIntArr;
... |
|
0
|
(
Сообщение было отмечено Zheka4190 как решение
