بخصوص التمرين الاول فتم برمجته على اساس ان الحاسوب يختار عشوائيا اعداد تنتمي الى المجموعة
n
محصورة بين 1 و20/-/ يمكن تساوي 1 ويمكن تساوي 20/-/
كود:
program ex;
uses wincrt;
type tab=array[1..100]of integer;
var n,s,i:integer;
m:real;
p:real;
t:tab;
begin
s:=0;p:=1;i:=1;
randomize;
writeln('Entrez un entier entre 10 et 20 ');
readln(n);
if (n<10) or (n>20) then writeln('S.V.P entre 10 et 20');
while (n>=10) and (n<=20)and(i<=n) do begin
t[i]:=random(21);
if t[i]<=0 then
repeat
t[i]:=random(21);
until t[i]>=1;
writeln('t[',i,']=',t[i]);
s:=s+t[i];
p:=p*t[i];
i:=i+1;
end;
m:=s/n;
if (n>=10) and (n<=20) then begin
writeln('La somme =',s);
writeln('Le produit=',p);
writeln('La moyen=',m:3);
end;
end.
ادا لم تفهم شيء اسئل عنه وان شاء اللله نساعدك
شكرا