Question

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.

Answer 1

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