Question

Poate sa ma ajute cineva? Se da tabloul A[1..N]. Descrie programul care scimba elementele tabloului in modul urmator. componentele pozitive sa fie inlocuite prin 2. iar iar componentele negative prin 3.

Answer 1

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