Lan Lan

Làm bài tập sau. Bài 1. Nhâp vào 1 dãy số nguyên dương ( dãy không quá 100 số), tìm số lớn nhất và ghi vào 1 tệp có tên tệp la input.txt

Bùi Anh Tuấn
30 tháng 3 2021 lúc 19:59

Nguyễn Lê Phước Thịnh
30 tháng 3 2021 lúc 20:31

uses crt;

const fi='input.txt'

var f1:text;

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

n,i,max:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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(f1,max);

close(f1);

readln;

end.


Các câu hỏi tương tự
Nguyễn Thị Oanh
Xem chi tiết
ngoc tran
Xem chi tiết
30. Hoàng Nhơn
Xem chi tiết
Đăng Phạm Khắc
Xem chi tiết
Trần Văn Tiến
Xem chi tiết
Nguyễn Hoàng Lan
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khoa Nhật
Xem chi tiết
nguyễn văn thành đạt
Xem chi tiết