Viết công thức nhập vào dãy số và in ra màn hình dãy số đó số lượng phần tử nhập từ bàn phím mong mọi người giải dùm em ạ mai em thi rồi

0 bình luận về “Viết công thức nhập vào dãy số và in ra màn hình dãy số đó số lượng phần tử nhập từ bàn phím mong mọi người giải dùm em ạ mai em thi rồi”

1. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n: byte;
   begin
           clrscr;
           write(‘Nhap so phan tu cua mang: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘A[‘,i,’]: ‘);
                           readln(a[i]);
                   end;
           write(‘Cac gia tri cua mang: ‘);
           for i:=1 to n do
                   write(a[i],’ ‘);
           readln;
   end.

   Bình luận

2. uses crt;

   var

   n,i,min:integer;

   a:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap so phan tu cua day:’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap a[‘,i,’]:’);readln(a[i]);

   end;

   min:=a[1];

   for i:=1 to n doif a[i]<min then min:=a[i];

   write(‘gia tri nho nhat cua day so la:’,min);

   readln;

   end.

   Bình luận