5. Se consideră tabloul A[1..n] de numere întregi, n≤100.Să se scrie un program care modifică tabloul în felul următor: elementele pozitive le înlocuieşte cu 1, cele negative – cu pătratul lor, iar cele nule – cu 7

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