اكتب برنامج باستخدام لغة البرمجة باسكال pascal لقراءة مصفوفة أحادیة البعد مكونة من 7 عناصر من النوع الصحیح ثم إیجاد الأتي :
- برمجة باسكال pascal
- 2021-10-19
- mhanasmh00489829403
الأجوبة
Program exe(i,o);
var a:array[1..7] of integer;
i, sum1 , sum2 , x, y:integer;
begin
for i := 1 to 7 do
readln(A[i]);
for i := 1 to 7 do
begin
if A[i] > 0 then
begin
sum1:=sum1+A[i];
x:=x+1;
end
else
begin
sum2:=sum2+A[i];
y:=y+1;
end;
end;
writeln( '+',sum1:5 ,x:4);
writeln( '-',sum2:5,y:4);
readln;
end.أسئلة مشابهة
القوائم الدراسية التي ينتمي لها السؤال
معلومات ذات صلة