اكتب برنامج باستخدام لغة البرمجة باسكال pascal لقراءة مصفوفة ثنائیة البعد تتكون من 12 عنصر من النوع الحقیقي 4×3 وطباعة مجموع عناصرھا
- برمجة باسكال pascal
- 2021-10-19
- mhanasmh00489829403
الأجوبة
program arr(i,o);
var A1:array[1..4,1..3] of integer ;
i,j,sum : integer;
begin
for i := 1 to 4 do
for j:= 1 to 3 do
begin
read(A1[i,j]);
end;
for i := 1 to 4 do
begin
for j:= 1 to 3 do
sum:=sum+A1[i,j];
end;
for i := 1 to 4 do
begin
for j:= 1 to 3 do
write(A1[i,j]:4);
writeln;
end;
writeln('sum:=',sum);
readln;
end.
أسئلة مشابهة
القوائم الدراسية التي ينتمي لها السؤال
معلومات ذات صلة