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

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

1. uses crt;
   var i,max:longint; a:array[1..20]of longint;
   begin
   clrscr;
      max:=low(longint);
      for i:=1 to 8 Do
         begin
            write(‘Nhap so nguyen thu ‘,i,’: ‘);readln(a[i]);
            if a[i]>max then max:=a[i];
         end;
      writeln(‘Max= ‘,max);
   readln
   end.

   Bình luận

2. 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;

   xin 5 sao

   Bình luận