Question

viết chương trình tìm số lớn nhất trong dãy A các số a₁, a₂, ..., a_n cho trước

Answer 1

Program So_nho_nhat;

uses crt;

Var i,n:Byte; so,Min:Integer;

Begin

clrscr;

Writeln('TIM SO LON NHAT TRONG N SO NGUYEN');

Writeln('---------------------------------'); Write('Cho biet so phan tu nhap N= '); Readln(n); i:=1;

Write('So thu ',i,' = '); Readln(so); Min:=so; For i:=2 To N Do Begin

Write('So thu ',i,' = '); Readln(so);

If Min < so Then Min:=so;

End;

Writeln;

Writeln('+So lon nhat trong ',n,' so vua nhap la so: ',Min);

Writeln(' Bam phim de ket thuc');

Readln;

End.