Best tin giúp mình với Viết chương trình nhập vào một dãy số với độ dài nhập từ bàn phím. Tính tích và tổng, tìm số lớn nhất, số bé nhất của dãy

0 bình luận về “Best tin giúp mình với Viết chương trình nhập vào một dãy số với độ dài nhập từ bàn phím. Tính tích và tổng, tìm số lớn nhất, số bé nhất của dãy”

1. program ct;

   uses crt;

   var Max,i,n,Min,s,T: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;

   s:=0;

     for i:=1 to n do s:=s+A[i];

   writeln(‘tong la:’,s);

   T:=1;

      for i:=1 to n do T:=T*A[i];

   writeln(‘tich la:’,T);

   Max:=A[1];Min:=A[1];

   for i:=2 to n do

   begin

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

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

   end;

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

   writeln(‘so nho nhat la:’,Min);

   readln

   end.

   Bình luận

2. program ct;

   uses crt;

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

         i,n,max,min:integer;

         S,T:longint;

   begin clrscr;

      write(Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

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

        end;

        S:=0; T:=1; max:=A[1]; min:=A[1];

      for i:=1 to n do

        begin

           S:=S+A[i]; T:=T*A[i];

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

           if A[i]<max then min:=A[i];

        end;

      writeln(‘Tong la: ‘,S);

      writeln(‘Tich la: ‘,T);

      writeln(‘Gia tri lon nhat la: ‘,max);

      writeln(‘Gia tri nho nhat la: ‘,min);

   readln;

   end.

   Học tốt!

   Bình luận