//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.
Тут используется собственная функция для нахождения степени числа.
#include <iostream>
using std::cout;
using std::cin;
using std::endl;
int powerFunction(int, int);
int main()
{
int number, power;
cout << "Enter A: ";
cin >> number;
cout << "Enter N: ";
cin >> power;
cout << number << " to the power of " << power
<< " = " << powerFunction(number, power) << endl;
return 0;
}
int powerFunction(int n, int p)
{
int temp = 1;
for(int i = 0; i < p; i++)
{
temp *= n;
}
return temp;
}
var a,b: integer;
begin
readln(a,b);
if(a mod 2=0) and (b mod 2=0) then
if a>b then write(a) else if b>a then write(b);
if(a mod 2<>0) and (b mod 2<>0)
then if a<b then write(a) else
if b<a then write(b);
if((a mod 2=0) and (b mod 2<>0)) or ((a mod 2<>0) and (b mod 2=0))
then write(a*b);
end.