Studiati atent programul ,comentati-l si executati-l daca n=4 veti introduce numere arbitrare alese de voi
Program P26;
Uses Crt ;
Var Suma ,x,n,i:1..MaxInt;Med:real;
Begin
Clrscr;
Write ('Cite numere are sirul?n=');
Readln(n);Suma:=0;
For i:=1 to n do
Begin
Readln(x);Suma:=Suma+x;
End;
Writeln('Suma numerelor este:',Suma);
Med:=Suma/n;
Writeln('Media=',Med:6:1);
Readln;
End.
Programul nu se va compila ai declarata variabila "Suma" ca 1..MaxInt (Var Suma ,x,n,i:1..MaxInt;) si aici (Readln(n);Suma:=0;) incerci sa-i atribui valoare 0 care depaseste limitele 1..MaxInt
Vă mulțumim pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!
