مساعدة مصيرية جزاكم الله خيرا: حل اختبار في الاعلام الآلي

[you92cef]

صور لعمل البرنامج الثاني

[you92cef]

يوجد خطا في التمرين الثاني للاسف لم اقسم عنصار الجدول بحسب ما هو مطلوب
المطلوب اننا نقسمهم الى اعداد موجبة واعداد سالبة
بينما البرنامج الدي قدمته لك يقسمهم الى زوجية وفردية

سيتم تعديل البرنامج
اسف على الخطا الغير مقصود
شكرا

[you92cef]

تصحيح البرنامج الثاني

program ex;
uses wincrt;
type tableau=array[1..100]of integer;
var tabpos,tabneg:tableau;
var n,i,z:integer;
begin
i:=1;
randomize;
writeln('Entrez un entier entre 15 et 30 ');
readln(n);

if (n<15) or(n>30) then  writeln('S.V.P ENTRE 15 ET 30')
else 
for i:=1 to n do  begin
z:=random(10);
if z mod 2=0  then 
tabpos[i]:=random(10000)
else
tabneg[i]:=-random(10000);
end;
if (n>=15) and(n<=30) then begin
writeln('Les element de tabpos sont');
for i:=1 to n do begin
if tabpos[i]<>0 then  
writeln(tabpos[i]);
end;
writeln('Les element de tabneg sont');
for i:=1 to n do begin
if tabneg[i]<>0 then  
writeln(tabneg[i]);
end;
end; 
end.

[islam.radouane]

خويااا بارك الله فيك

والله غير انت راجل ونص

يارب يفرحك ويدخلك الجنة

انا عندي ضعف كبير في هذه المادة رغم ان مستواي جيد في المواد الاخرى

بالنسبة للتمرين الثالت والله حاولت ولكني فشلت في تركيب الجمع

وشكرااا