Lập trình đơn giản

Nguyễn Nam

Sử dụng Free Pascal viết chương trình Pascal sử dụng biến mạng nhập từ bàn phím các phần tử của một dãy n số tự nhiên, xét và tìm ra số lớn nhất đưa ra màn hình? Độ dài của dãy cũng được nhập từ bàn phím.

Nguyễn Lê Phước Thịnh
25 tháng 6 2020 lúc 17:24

uses crt;

var n,i,max:integer;

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

begin

clrscr;

write('Nhap 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 max<a[i] then max:=a[i];

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

readln;

end.

Bình luận (0)
Phan Tiến Đạt
25 tháng 6 2020 lúc 20:29

uses crt;

var n,i,max: longint;

a: array [1..200] of int64;

begin

clrscr;

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

for i:= 1 to n do

begin write('Nhap phan tu thu ',i,': '); readln(a[i]); end;

max:= 0;

for i:= 1 to n do

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

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

readln

end.

Bình luận (0)
Nguyễn Nam
25 tháng 6 2020 lúc 16:58

Lập trình đơn giản

Bình luận (0)
Nguyễn Nam
25 tháng 6 2020 lúc 17:12

Bình luận (0)

Các câu hỏi tương tự
Yeu DUong nhat
Xem chi tiết
Nguyễn Linh
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Quỳnh
Xem chi tiết
Nhân lê
Xem chi tiết
Anhthuwliz
Xem chi tiết
khonopro
Xem chi tiết
Hoài Right
Xem chi tiết