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 că ați vizitat site-ul nostru web care acoperă despre Informatică. Sperăm că informațiile furnizate v-au fost utile. Nu ezitați să ne contactați dacă aveți întrebări sau aveți nevoie de asistență suplimentară. Ne vedem data viitoare și nu ratați să marcați.