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 că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!