Viết chương trình nhập ngẫu nhiên một mảng không quá 100 số nguyên. Tìm số lớn nhất của mảng

0 bình luận về “Viết chương trình nhập ngẫu nhiên một mảng không quá 100 số nguyên. Tìm số lớn nhất của mảng”

1. program ct;

   uses crt;

   var i,n,Max:integer;

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

   begin

   clrscr;

   write(‘nhap n=’); readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]=’);readln(A[i]);

   end;

   Max:=A[i];

   for i:=2 to n do

   if Max<A[i] then Max:=A[i];

   writeln(‘so lon nhat cua mang la’,Max);

   readln

   end.

   Bình luận

2. program timmax;

   uses crt;

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

         n,i,max:integer;

   begin

   clrscr;

   randomize;

   n:=random(100);

   for i:=1 to n do

    A[i]:=random(32676);

   write(‘Mang do la: ‘);

   for i:=1 to n do

    write(A[i],’ ‘);

   max:=A[1];

   for i:=2 to n do

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

   write(‘So lon nhat la: ‘,max);

   readln

   end.

    

   Bình luận