C=4 T=9 O=5 --- Ну я, например, в паскаль условие вбила. Если нужен код: uses crt; var a,c,t,o:integer; begin for a:=100 to 999 do begin t:=a div 100; o:=a div 10 mod 10; c:=a mod 10; if (100*c+10*t+o+100*c+10*o+t)=a then writeln(a); end; end. ---
1)uses crt; 2)var a:array[1..20,1..20] of integer; 3)n,m,i,j,mn,mx,jmn,jmx,x,y:integer; 4)begin 5)clrscr; 6)randomize; 7)write('Количество строк n='); 8)readln(n); 9)write('Количество столбцов m='); 10)readln(m); 11)writeln('Исходная матрица:'); 12)for i:=1 to n do 13)begin 14) for j:=1 to m do 15)begin 16)a[i,j]:=random(20); 17)write(a[i,j]:4); 18)end; 19)writeln; 20)end; 21)for i:=1 to n do 22)begin 23)mx:=a[i,1];mn:=a[i,1]; 24)jmx:=1;jmn:=1; 25)for j:=1 to m do 26)begin 27)if a[i,j]>mx then 28)begin 29)mx:=a[i,j]; 30)jmx:=j; 31)end; 32)if a[i,j]<mn then 33)begin 34)mn:=a[i,j]; 35)jmn:=j; 36)end; 37)end; 38)x:=a[i,1]; 39)a[i,1]:=a[i,jmx]; 40)a[i,jmx]:=x; 41)y:=a[i,m]; 42)a[i,m]:=a[i,jmn]; 43)a[i,jmn]:=y; 44)end; 45)writeln('Результат:');46) 46)for i:=1 to n do 47)begin 48)for j:=1 to m do 49)write(a[i,j]:4); 50)writeln; 51)end; 52)readln 53)end.
![Дана матрица в[n,m].найти в каждой строке матрицы максимальный и минимальный элемент и поменять их м](/tpl/images/0855/6129/1b35a.jpg)
T=9
O=5
---
Ну я, например, в паскаль условие вбила. Если нужен код:
uses crt;
var a,c,t,o:integer;
begin
for a:=100 to 999 do
begin
t:=a div 100;
o:=a div 10 mod 10;
c:=a mod 10;
if (100*c+10*t+o+100*c+10*o+t)=a
then writeln(a);
end;
end.
---