viết chương trình nhập dãy số gồm n số nguyên, in ra màn hình phần tử lớn nhất của dãy số vừa nhập

0 bình luận về “viết chương trình nhập dãy số gồm n số nguyên, in ra màn hình phần tử lớn nhất của dãy số vừa nhập”

1. uses crt;

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

   i,n,max: integer;

   begin

   clrscr;

   write (‘nhap n: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap so thu ‘,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: ‘,max);

   readln;

   end.

   Bình luận

2. ues crt;

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

   i, n, max:integer;

   begin

   clrscr;

   writeln(‘nhap so phan tu cua day so, n= ‘);readln(n);

   for i:=1 to n do

   begin

   writeln(‘phan tu thu ‘,i,’ :’);

   readln(a[i]);

   end;

   max:=a[1];

   for i:=2 to n do

   begin

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

   end;

   writeln(‘phan tu lon nhat trong day gom ‘,n,’ phan tu la: ‘,max:3:1);

   readln

   end.

   Bình luận