1.Выписать все пятизначные числа, имеющие зеркальную запись (например: 38183).
# include
using namespace std;
void main ()
{
for (int i=1;i<=9;i++){
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 << i <<l << k<< endl;
}
}}}}}
system("PAUSE");}
2.Дана матрица, отсортировать строки по среднему значению элементов.
program uraekzamen
integer, allocatable :: b(:,:),a(:)
read(*,*)m,n
allocate(b(m,n))
allocate(a(n))
do i=1,m
read(*,*)(b(i,j),j=1,n)
end do
do i=1,m-1
do j=1,m-1
if ((sum(b(j,:)))/n .GT. (sum(b(j+1,:)))/n) then
a=b(j,:)
b(j,:)=b(j+1,:)
b(j+1,:)=a
end if
end do
end do
do i=1,m
write(*,*)(b(i,j),j=1,n)
end do
pause
end