Viết chương trình nhập vào mảng A gồm 20 phần tử, thực hiện công việc sau – Xuất ra màn hình giá trị phần tử nhỏ nhất cuối cùng của dãy số – Xuất ra

0 bình luận về “Viết chương trình nhập vào mảng A gồm 20 phần tử, thực hiện công việc sau – Xuất ra màn hình giá trị phần tử nhỏ nhất cuối cùng của dãy số – Xuất ra”

1. program baio1;

   var a:array[1..100] of real;

   n,i:longint;

   begin

   repeat

   write(‘N= ‘);readln(n);

   until n>0;

   for i:=1 to n do

   begin

   write(‘a[,i,’]= ‘);

   readln(a[i]);

   END;

   max:=a[1];min:=a[1];

   for i:=1 to n do

   if a[i]>max then max:=a[i]

   else min:=a[i];

   write(‘…’);

   readln

   end.

   Bình luận