Viết chương trình tìm max của dãy số có 15 phần tử kiểu nguyên Mọi người giúp với cần để ôn thi ạ

0 bình luận về “Viết chương trình tìm max của dãy số có 15 phần tử kiểu nguyên Mọi người giúp với cần để ôn thi ạ”

1. uses crt;

   var a: array[1..15] of word;

   i,n,max: word

   begin

   clrscr;

   for i:=1 to 15 do

   begin

   write (‘nhap so thu ‘,i,’: ‘);  readln (a[i]);

   end;

   for i:=1 to 15 do

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

   writeln (‘so lon nhat la: ‘,max);

   readln;

   end.

   Bình luận