Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nhật Nguyễn Quang
Xem chi tiết
Nhật Nguyễn Quang
Xem chi tiết
Ske Bình
Xem chi tiết
Minh Lệ
12 tháng 3 2023 lúc 21:46

Program HOC24;

var i,n: integer;

t: longint;

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

begin

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

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Ket qua la: ',t);

readln

end.

Đu Boylove Vân Anh
Xem chi tiết
Phía sau một cô gái
17 tháng 4 2023 lúc 15:14

program Tim_so;

var

      a: array of integer;

      i, n, max, min: integer;

begin

      write('Nhap so phan tu cua danh sach: ');

      readln(n);

      SetLength(a, n);

      for i := 0 to n - 1 do

      begin

            write('Nhap gia tri phan tu thu ', i + 1, ': ');

            readln(a[i]);

            if (i = 0) then

            begin

                  max := a[i];

                  min := a[i];

            end

            else

            begin

                  if (a[i] > max) then

                        max := a[i];

                  if (a[i] < min) then

                        min := a[i];

            end;

      end;

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

      writeln('Phan tu co gia tri nho nhat la: ', min);

end.

nguyen van mui
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết

Anh ơi, anh nhầm khối rồi ạ nên anh chuyển lên lớp 12 hỏi chứ bọn em mới lớp 6 chx hiểu về mấy cái này nên anh thông cảm

Anh Lê duy
Xem chi tiết
Nguyễn Mai
Xem chi tiết