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