In c++
#include <iostream>
using namespace std;
int n, A[100], i;
int main ()
{
cin >> n; //se citeste n=nr de elemente
for (i = 1; i <= n; i++) {
cin >> A[i]; //se citeste vectorul
if (A[i] > 0) A[i] = 1; //daca nr sunt pozitive
else if (A[i] < 0) A[i] = A[i]*A[i]; //daca nr sunt negative
else A[i] = 7; //daca nr sunt nule
}
for (i = 1; i <= n; i++) cout << A[i] << " "; //se afiseaza vectorul
return 0;
}
In pascal:
Program schimba_numere;
var A: array[1..100] of integer;
i,n: byte;
Begin
readln(n);
for i := 1 to n do
begin
readln(A[i]);
if (A[i] > 0) then
A[i] := 1
else
if (A[i] < 0) then
A[i] := A[i]*A[i]
else A[i] := 7;
end;
for i := 1 to n do
writeln(A[i], ' ');
End.
In exemplu: n=5, numerele sunt 1, 2, -1, -5, 0, rezultatul este 1, 1, 1, 25, 7
