Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Như Ngọc

viết chuương trình pascal sử dụng biến mảng để nhập từ bàn phím N phần tử của 1 dãy số . In ra màn hình số lớn nhất và số nhỏ nhất . Độ dài N của dãy cũng được nhập từ bàn phím

gấu béo
7 tháng 5 2023 lúc 19:48

program TimMaxMinCuaMang;

var

      mang: array of integer;

      n, i, max, min: integer;

begin

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

      readln(n);

      setlength(mang, n);

      writeln('Nhap cac phan tu cua mang:');

      for i := 0 to n-1 do

      begin

            readln(mang[i]);

      end;

      max := mang[0];

      min := mang[0];

      for i := 1 to n-1 do

      begin

            if mang[i] > max then

                  max := mang[i];

            if mang[i] < min then

                  min := mang[i];

      end;

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

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

      readln;

end.

Kiều Vũ Linh
8 tháng 5 2023 lúc 8:20

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

i,n,min,max:integer;

Begin

Write('N = ');readln(n);

For i:=1 to  n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

min:=a[1];

For i:=2 to n do

begin

If a[i] > max then max:=a[i];

if a[i] < min then min:=a[i];

end;

writeln('So lon nhat la ',max);

write('So nho nhat la ',min);

Readln

End.


Các câu hỏi tương tự
Thư ĐT
Xem chi tiết
Minh Đạt
Xem chi tiết
Huyền Trần
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Đào Cẩm
Xem chi tiết
Uchiha Obito
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
MinhAnh Vũ
Xem chi tiết
Hồ Ngọc Thiện
Xem chi tiết