Câu 1 : Viết cú pháp của dãy số Câu 2 : Cho 1 dãy số có n phần tử . Yêu cầu : tìm giá trị lớn nhất và nhỏ nhất của dãy số đó Câu 3 : cho 1 dãy số có n

0 bình luận về “Câu 1 : Viết cú pháp của dãy số Câu 2 : Cho 1 dãy số có n phần tử . Yêu cầu : tìm giá trị lớn nhất và nhỏ nhất của dãy số đó Câu 3 : cho 1 dãy số có n”

1. Câu 1: (Chưa rõ ràng)

   Câu 2:

   program Cau_2;

   uses crt;

   var A:array [1..500] of integer;

         n,i,max,min: integer;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            for i:=1 to do

            begin

                    write(‘A[‘,i,’]=’); readln(A[i]);

            end;

            max:=1; min:=1;

            for i:=1 to n do

            begin

                     if max<A[i] then max:=A[i];

                     if min>A[i] then min:=A[i];

            end;

            writeln(‘Phan tu lon nhat: ‘,max);

            write(‘Phan tu nho nhat: ‘,min);

            readln

   End.

   Bình luận