{$APPTYPE CONSOLE} Const n = 13; Type Mass = array[1..n] of integer;
Procedure BbIBOD(Var A:Mass); Var i:integer; Begin For i:= 1 to n do Write(' ',A[i]) End;
Function SWP(Var A:Mass; c:real):integer; Var i,j:integer; Begin For i:= 1 to n do if (A[i] < 0)and(A[i] <= c) then j:=i; if j <> 0 then Begin WriteLn('Искомый элемент: ',A[j],'[',j,']'); A[j]:=Sqr(A[j]); i:=A[n-1]; A[n-1]:=A[j]; A[j]:=i; Write('Новый массив:'); BbIBOD(A); End else Write('В массиве нет отрицательных элементов') End;
Var A:Mass; i:integer; c:real; Begin Randomize; Write('Исходный массив(',n,'):'); For i:= 1 to n do A[i]:=random(2*n+1)-n; BbIBOD(A); WriteLn; Write('Введите число: '); ReadLn(c); SWP(A,c); ReadLn End.
int size; // Размер массива int minimal_index = -1;
bool polynomial(int number){ std::string poly = std::to_string(number); // Преобразовываем int в string for(int i = 0; i < poly.length() / 2; i++){ if (poly[i] != poly[poly.length() - i - 1]){ return false; } } return true; }
int main() { std::cin >> size; // Вводим размер массива int array[size]; // Создаем массив for(int i = 0; i < size; i++){ std::cin >> array[i]; // Задаем i-тый элемент массива if (polynomial(array[i])){ // Если число полином if(minimal_index == -1){ minimal_index = i; } else if (array[i] < array[minimal_index]){ // Если новый полином меньше старого minimal_index = i; // То запоминаем новый индек } } }
// Ниже используем пузырьковую сортировку for(int i = minimal_index; i < size; i++){ for(int j = i; j < size; j++){ if(array[i] < array[j]){ int tmp = array[i]; array[i] = array[j]; array[j] = tmp; } } }
// Вывод массива for(int i = 0; i < size; i++){ std::cout << array[i] << " "; }
i:integer;
begin
randomize;
for i:=1 to 11 do begin
a[i]:= random(3)+3;
write(a[i]:2);
end;
end.
(Если ответ Вас удовлетворяет, не забудьте отметить решение, как лучшее)