Question

2. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).

Answer 1

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.