Скодом: даны три целых числа. возвести в квадрат отрицательные числа и в третью степень - положительные (число 0 не изменять). написать на c++ в visual studio.

#include <iostream>
#include <cmath>
using namespace std;
int main()
{
    setlocale(LC_ALL, "Russian");
    double x,y,z;
    cout << "Введите 3 числа через пробел: ";
    cin >> x >> y >> z;
    if (x<0)
    {
       x=pow(x,2);
    }
    else if (x>0)
    {
        x=pow(x,3);
    }
    if (y<0)
    {
       y=pow(y,2);
    }
    else if (y>0)
    {
        y=pow(y,3);
    }
    if (z<0)
    {
       z=pow(z,2);
    }
    else if (z>0)
    {
        z=pow(z,3);
    }
    cout << "Вывод: " << x << " " << y << " " << z << endl;
    return 0;
}

#include <iostream>
using namespace std;
int main()
{
int a = 0;
int b = 0;
int c = 0;
cout << "Введите три целых числа: " << endl;
cin >> a >> b >> c;
if (a <= 0) cout << a*a << " ";
if (a > 0) cout << a*a*a << " ";
if (b <= 0) cout << b*b << " ";
if (b > 0) cout << b*b*b << " ";
if (c <= 0) cout << c*c << endl;
if (c > 0) cout << c*c*c << endl;
return 0;
}

var a = -2;

var b = 2;

var c = 3;

var mas = [a, b, c]; //или mas.push(a); mas.push(b); mas.push(c);

for(var i = 0; i < mas.length; i++)

{

   if(mas[i] < 0)

   {

       Math.pow(mas[i], 2); //или mas[i]*mas[i];

       //Вывод квадратов отрицательных чисел

   }

   else if(mas[i] > 0)

   {

       Math.pow(mas[i], 3); //или mas[i]*mas[i]*mas[i];

       //Вывод кубов положительных чисел

   }

}

Объяснение:

Массив использован для удобства, универсальности и компактности кода.

Program programma;
Uses crt;

var  i: integer;
     a: array [1..1000] of integer;
Begin clrscr;
for i:=1 to 3 do
    begin
    write('a[',i,']=');
    readln(a[i]);
    end;

    writeln;

for i:=1 to 3 do
    begin
    if a[i]<>0 then
    begin
    if a[i]<0 then a[i]:=(a[i])*(a[i])
    else a[i]:=(sqr(a[i]))*a[i];
    write(a[i],'    ');
    end
    else
    write(a[i],'    ');
    end;
End.

Program square_negative;
var
  a: array[1..5] of integer;
  i: integer;
begin
  writeln('Ввод массива: ');
  for i := 1 to 5 do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] < 0 then
      a[i] := a[i] * a[i];
  end;
  writeln('Вывод изменённого массива: ');
  for i := 1 to 5 do
    write(a[i], ' ');
end.

Var a, b, c: integer;
function zd(a:integer): integer;
begin
if a=0 then
zd:=0
else
if a>0 then zd:=sqr(a) else zd:=a*a*a;
end;
begin
read(a, b, c);
write(zd(a), ' ');
write(zd(b), ' ');
write(zd(c), ' ');
end.

Var x,y:real;
begin
read(x,y);
if x<0 then x:=x*x else x:=sqrt(x);
if y<0 then y:=y*y else y:=sqrt(y);
write(x,' ',y);
end.

Var
 a,b,c,d:integer;
begin
  read(a,b);
  If a<0
   then c:=sqr(a)
   else if a>0
         then c:=a*a*a
         else c:=b;

  If b<0
   then d:=sqr(b)
   else if b>0
         then d:=b*b*b
         else d:=a;

 write(c,' ',d);
 readln;
 readln

end.

Если отрицательное число возвести в квадрат, то ВСЕГДА получается положительное число
например, -2 в квадрате=4

Какой ЯП?
Pascal?
var a:
array[1..5] of integer;    
i:integer;
begin
writeln('Введите 5 чисел');
for i:=1 to 5 do
readln(a[i]);
 for i:=1 to 5 do
 if a[i]<0
then writeln(sqr(a[i]));
readln;
end.