Răspuns :
var
K:array[1..50] of real;
S:real;
i:byte;
begin
for i:=1 to 50 do
begin
read(K[i]);
S+=K[i];
end;
writeln(S/50);
end.
K:array[1..50] of real;
S:real;
i:byte;
begin
for i:=1 to 50 do
begin
read(K[i]);
S+=K[i];
end;
writeln(S/50);
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!