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

viết chương trình nhập vào 1 dãy gồm n số nguyên (n được nhập từ bàn phím). Tìm giá trị lớn nhất rtong dãy vừa nhập mà in ra màn hình

Minh Lệ
30 tháng 4 2021 lúc 16:32

Program HOC24;

var a: array[1..32000] of integer;

i,max,,n: integer;

begin

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

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

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

write('So lon nhat la: ',max);

readln

end.

Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:00

uses crt;
var a:array[1..1000000] of longint;
      n,i,max:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      max:=a[1];
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i]>max then max:=a[i];
            end;
      writeln('GTLN: ',max);
      readln;
end.


Các câu hỏi tương tự
hoàng kim
Xem chi tiết
Biên Vi
Xem chi tiết
Hắc Lang
Xem chi tiết
Bùi Ngọc Khánh Huyền
Xem chi tiết
Trần Hà Thư
Xem chi tiết
Tuấn Trần thị
Xem chi tiết
Đoàn Phạm Phương Vy
Xem chi tiết
Ha Tran
Xem chi tiết
Ha Tran
Xem chi tiết