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