Question

Nhập dãy số n phần tử n<=10, giá trị từng phần tử số. Viết chương trình
1. Nhập cá phần tử và giá trị từng phần tử
2. Tính tích phần tử mảng
3. In ra. Phần tử có giá trị lớn nhất

Answer 1

program NhapMang;

var

      mang: array[1..10] of integer;

      n, i, tich, max: integer;

begin

      write('Nhap so phan tu cua mang: ');

      readln(n);

      tich := 1;

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ' cua mang: ');

            readln(mang[i]);

            tich := tich * mang[i];

      end; 

      max := mang[1];

      for i := 2 to n do

            if mang[i] > max then

                  max := mang[i];

      writeln('Tich cua cac phan tu trong mang la: ', tich);

      writeln('Phan tu co gia tri lon nhat la: ', max);

      readln;

end.