Viết chương trình nhập vào 8 số nguyên rồi tìm max dãy số đó Yêu cầu: khai báo biến mảng dayso, với chỉ số đầu là 1, chỉ số cuối là 20, kiểu dữ liệu s

0 bình luận về “Viết chương trình nhập vào 8 số nguyên rồi tìm max dãy số đó Yêu cầu: khai báo biến mảng dayso, với chỉ số đầu là 1, chỉ số cuối là 20, kiểu dữ liệu s”

1. program ct;

   uses crt;

   var i,n,Max:integer;          

   dayso: array[1..20] of integer;

   begin

   clrscr;

         for i:=1 to 8 do

   begin

          write(‘nhap dayso[‘,i,’]:=’);readln(dayso[i]);

   end;

          Max:=dayso[1];

              for i:=2 to 8 do

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

        writeln(‘gia tri lon nhat la:’,Max);

   readln

   end.

   Bình luận

2. Đáp án :

   program abcxyz;
   var x:array [1..20] of integer;

   max,i:integer;
   begin
   writeln(‘nhap gia tri cho x:’);
   for i:=1 to 8 do
   begin
   write(‘x,’i,’=’);readln(x[i]);
   end;
   writeln(‘cac phan tu cua mang la:’);
   for i:=1 to 8 do
   write(x[i],’  ‘);
   writeln;
   max :=x[i];
   for i:=2 to 8 do
   if x[i] > max then max:=x[i];
   writeln (‘GTLN :,’max);
   readln;
   end.

   Bình luận