const
n = 10;
var
a, b: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
begin
write('a[', i, ']=');
readln(a[i]);
if a[i] < 0 then b[i] := -a[i]
else b[i] := a[i];
end;
for i := 1 to n do
writeln(b[i]);
readln;
end.
Va rog in limbaj C++
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de sprijin suplimentar, vă încurajăm să ne contactați. Revenirea dumneavoastră ne bucură, iar dacă v-a plăcut, nu uitați să adăugați site-ul nostru la favorite!