LL

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

BT
30 tháng 3 2021 lúc 19:59

Bình luận (0)
NT
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.

Bình luận (0)

Các câu hỏi tương tự
NO
Xem chi tiết
NT
Xem chi tiết
3N
Xem chi tiết
DK
Xem chi tiết
TT
Xem chi tiết
NL
Xem chi tiết
KM
Xem chi tiết
KN
Xem chi tiết
ND
Xem chi tiết