nhập mảng d 100 phần tử số nguyên 1. Xuất mảng d 2. Tính tổng phần tử d 3. Tìm phần tử lớn nhất

0 bình luận về “nhập mảng d 100 phần tử số nguyên 1. Xuất mảng d 2. Tính tổng phần tử d 3. Tìm phần tử lớn nhất”

1. program Min;
   uses crt;
   var A:array[1..100] of integer;
       max,i,S:integer;
   begin
      clrscr;
      S:=0;
      for i:=1 to 100 do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
         S:=S+A[i];
      end;
      max:=A[1];
      for i:=1 to 100 do 
      write(A[i]:4);
      writeln(”);
      for i:=2 to 100 do if A[i]>max then max:=A[i];
      writeln(‘Tong la: ‘,S);
      writeln(‘Phan tu lon nhat la: ‘,max);
      readln
   end.
      

   Bình luận

2. Program BTT;
   Uses crt;
   Var A: array[1..100] of longint;
       n,i,s,max: longint;
   Begin
           Clrscr;
           For i:=1 to 100 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Read(A[i]);
                   s:=s+A[i];
           End;
           For i:=1 to 100 do Write(A[i],’ ‘);
           Writeln;
           Write(‘S = ‘,s);
           max:=A[1];
           For i:=2 to n do
                   If A[i]>max then max:=A[i];
           Write(‘Max = ‘,max);
           Readln
   End.

   Bình luận