👤
NICOLAE2EZ
a fost răspuns

Se dă un tablou cu 20 componente reale. Elaborați un program, care înlocueşte toate componentele pozitive cu dublul lor, iar cele negative-cu zero. Afişaţi componentele tabloului modificat.
Vă rog frumos

Răspuns :

var a:array[1..20] of real;
i:byte;

begin

for i:=1 to 20 do begin
read(a[i]);
if a[i]<0 then a[i]:=0
else a[i]:=2*a[i];
end;

writeln;

for i:=1 to 20 do write(a[i],' ');

end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari