اكتب برنامج باستخدام لغة البرمجة باسكال pascal لقراءة مصفوفة أحادیة البعد مكونة من 12 عنصر من النوع الصحیح وطباعة اكبر عنصر فیھا
- برمجة باسكال pascal
- 2021-10-18
- mhanasmh00489829403
الأجوبة
program Arr(i,o);
var A:Array[1..12] of integer;
max:integer;
i:integer;
begin
for i:= 1 to 12 do
readln(A[I]);
max:=0;
for i:= 1 to 12 do
begin
if A[i] > max then
max:= A[i];
end;
write('max=':6,max:4);
readln;
end.
أسئلة مشابهة
القوائم الدراسية التي ينتمي لها السؤال
معلومات ذات صلة