o solutie pentru numere :
7,-8,9,-10,11
program Project20000;
var A:array [1..5] of integer;
var i:integer;
beginA[1] :=7;
A[2] :=-8;A[3] :=9;
A[4] :=-10;A[5] :=11;
for i:=1 to 5 do
begin
if (A[i] > 0) then A[i]:= 2 else A[i]:= 3;
writeln(A[i]);end;
end.
rezultat afisat
2
3
2
3
2