1.Выписать все четырехзначные числа, имеющие зеркальную запись (например: 3883).
# include
using namespace std;
void main ()
{
for (int j=1;j<=9;j++){
for (int k=1;k<=9;k++){
for (int l=1;l<=9;l++){
for (int m=1;m<=9;m++){
if ((j==k)&&(m==l)){
cout<<j <<m <<l << k<< endl;
}
}}}}
system("PAUSE");}
3.Дана матрица, отсортировать строки по убыванию суммы элементов.
program myprog
integer, allocatable :: a(:,:)
integer, allocatable :: buff(:)
read(*,*) m, n
allocate (a(M,N), buff(n))
do i=1,m
read(*,*) (a(i,j),j=1,n)
end do
do i=1,m-1
do j=i,m
if (sum(a(i,:))>sum(a(j,:))) Then
buff=a(i,:)
a(i,:)=a(j,:)
a(j,:)=buff
end if
end do
end do
do k=1,m
write(*,*)(a(k,j),j=1,n)
write(*,*)
end do
end