Решение с использованием указателей:
#include <iostream>
#include <ctime>
#define N 15
int main()
{
int A[N];
int i, tmp, cnt;
int *min = A,*max = A, *j;
setlocale(LC_ALL, "Russian");
// Автозаполнение
srand(time(0));
for (i = 0; i < N; i++)
A[i] = rand() % 201 - 100;
std::cout << "Исходный массив:" << std::endl;
for (i = 0; i < N; i++)
std::cout << *(A + i) << " ";
// Находим минимальный и максимальный элементы массива, запоминаем их адреса
for (i = 0; i < N; i++)
{
if (*(A + i) > *max) max = A + i;
if (*(A + i) < *min) min = A + i;
}
// Мин. и макс. элементы могут находиться в разных местах относительно друг друга
if (min < max)
{
cnt = ((max) - (min)) / 2;
for (j = min + 1, i = 0; i < cnt; j++, i++)
{
tmp = *j;
*j = *(min + 1 + (max - 1 - j));
*(min + 1 + (max - 1 - j)) = tmp;
}
}
else
{
cnt = ((min) - (max)) / 2;
for (j = max + 1, i = 0; i < cnt; j++, i++)
{
tmp = *j;
*j = *(max + 1 + (min - 1 - j));
*(max + 1 + (min - 1 - j)) = tmp;
}
}
std::cout << "\nРезультат:" << std::endl;
for (i = 0; i < N; i++)
std::cout << *(A + i) << " ";
return 0;
}
1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.