 Сообщение было отмечено Памирыч как решение
Решение
nicki_art, дописал
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Program z18;
var a:array [1..10,1..10] of integer; {ну или real смотря че сказано в условии целые или нет}
i,j,i_max,j_max,i_min,j_min,max,min:integer;
Begin
max:=-maxint-1;
min:=maxint;
i_max:=1;
j_max:=1;
i_min:=1;
j_min:=1;
for i:=1 to 10 do
for j:=1 to 10 do
Begin
read(a[i,j]);
if (a[i,j] mod 2 <> 0) then begin
if (a[i,j]>max) then
Begin
max:=a[i,j];
i_max:=i;
j_max:=j;
end;
if (a[i,j]<min) then Begin
min:=a[i,j];
i_min:=i;
j_min:=j;
end;
end;
end;
writeln;
writeln('max=',max,' номер',i_max,',',j_max);
writeln('min=',min,' номер',i_min,',',j_min);
end. |
|
теперь все
Добавлено через 5 минут
nicki_art,
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Program z19;
var a:array [1..10,1..10] of integer; {ну или real смотря че сказано в условии целые или нет}
i,j,i_max,j_max,i_min,j_min,max,min:integer;
Begin
max:=-maxint-1;
min:=maxint;
i_max:=1;
j_max:=1;
i_min:=1;
j_min:=1;
for i:=1 to 10 do
for j:=1 to 10 do
Begin
read(a[i,j]);
if (a[i,j] mod 2 = 0) then
if (a[i,j]>max) then begin
Begin
max:=a[i,j];
i_max:=i;
j_max:=j;
end
if (a[i,j]<min) then Begin
min:=a[i,j];
i_min:=i;
j_min:=j;
end;
end;
end;
writeln;
writeln('max=',max,' номер',i_max,',',j_max);
writeln('min=',min,' номер',i_min,',',j_min);
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
24
25
26
27
28
29
30
31
32
| Program z20;
var a:array [1..10,1..10] of integer; {ну или real смотря че сказано в условии целые или нет}
i,j,i_max,j_max,i_min,j_min,max,min:integer;
Begin
max:=-maxint-1;
min:=maxint;
i_max:=1;
j_max:=1;
i_min:=1;
j_min:=1;
for i:=1 to 10 do
for j:=1 to 10 do
Begin
read(a[i,j]);
if (i mod 2 = 0) and (j mod 2 = 0) then begin
if (a[i,j]>max) then
Begin
max:=a[i,j];
i_max:=i;
j_max:=j;
end
if (a[i,j]<min) then Begin
min:=a[i,j];
i_min:=i;
j_min:=j;
end;
end;
end;
writeln;
writeln('max=',max,' номер',i_max,',',j_max);
writeln('min=',min,' номер',i_min,',',j_min);
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
24
25
26
27
28
29
30
31
32
| Program z21;
var a:array [1..10,1..10] of integer; {ну или real смотря че сказано в условии целые или нет}
i,j,i_max,j_max,i_min,j_min,max,min:integer;
Begin
max:=-maxint-1;
min:=maxint;
i_max:=1;
j_max:=1;
i_min:=1;
j_min:=1;
for i:=1 to 10 do
for j:=1 to 10 do
Begin
read(a[i,j]);
if (i mod 2 > 0) and (j mod 2 > 0) then begin
if (a[i,j]>max) then
Begin
max:=a[i,j];
i_max:=i;
j_max:=j;
end
if (a[i,j]<min) then Begin
min:=a[i,j];
i_min:=i;
j_min:=j;
end;
end;
end;
writeln;
writeln('max=',max,' номер',i_max,',',j_max);
writeln('min=',min,' номер',i_min,',',j_min);
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
| Program z22;
var a:array [1..10,1..10] of integer; {ну или real смотря че сказано в условии целые или нет}
i,j,i_max,j_max,i_min,j_min,max,min,t:integer;
Begin
max:=-maxint-1;
min:=maxint;
i_max:=1;
j_max:=1;
i_min:=1;
j_min:=1;
for i:=1 to 10 do
for j:=1 to 10 do
Begin
read(a[i,j]);
if (a[i,j]>max) then
Begin
max:=a[i,j];
i_max:=i;
j_max:=j;
end;
if (a[i,j]<min) then Begin
min:=a[i,j];
i_min:=i;
j_min:=j;
end;
end;
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do write(' ',a[i,j]);
writeln;
end;
t:=a[i_min,j_min];
a[i_min,j_min]:=a[i_max,j_max];
a[i_max,j_max]:=t;
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do write(' ',a[i,j]);
writeln;
end;
end. |
|
это с доп переменной
Добавлено через 2 минуты
nicki_art, | Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
| Program z22;
var a:array [1..10,1..10] of integer; {ну или real смотря че сказано в условии целые или нет}
i,j,i_max,j_max,i_min,j_min,max,min:integer;
Begin
max:=-maxint-1;
min:=maxint;
i_max:=1;
j_max:=1;
i_min:=1;
j_min:=1;
for i:=1 to 10 do
for j:=1 to 10 do
Begin
read(a[i,j]);
if (a[i,j]>max) then
Begin
max:=a[i,j];
i_max:=i;
j_max:=j;
end;
if (a[i,j]<min) then Begin
min:=a[i,j];
i_min:=i;
j_min:=j;
end;
end;
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do write(' ',a[i,j]);
writeln;
end;
a[i_min,j_min]:=a[i_min,j_min]+a[i_max,j_max];
a[i_max,j_max]:=a[i_min,j_min]-a[i_max,j_max];
a[i_min,j_min]:=a[i_min,j_min]-a[i_max,j_max];
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do write(' ',a[i,j]);
writeln;
end;
end. |
|
а это без. фух ну все
1
|
(
Сообщение было отмечено Памирыч как решение
