help meeeeee!đúng có thưởng nha! 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 tên báo biến mảng dãy số, với chỉ số đầu

0 bình luận về “help meeeeee!đúng có thưởng nha! 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 tên báo biến mảng dãy số, với chỉ số đầu”

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

   Bình luận

2. program ct;

   uses crt;

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

         i,max:integer;

   begin clrscr;

      for i:=1 to 8 do

        begin

           write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

        end;

        max:=A[1];

      for i:=1 to 8 do

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

      writeln(‘Max day so la: ‘,max);

   readln;

   end.

   Học tốt!

   Bình luận