viết chương trình nhập vào một dãy gồm n phần tử a) in ra màn hình số lớn nhất trong dãy b) in ra màn hình số nhỏ nhất trong dãy c) đếm xem trong d

0 bình luận về “viết chương trình nhập vào một dãy gồm n phần tử a) in ra màn hình số lớn nhất trong dãy b) in ra màn hình số nhỏ nhất trong dãy c) đếm xem trong d”

1. Uses crt;

   Var n,i,max,min,d,h:Integer;
   a:array [1..100] of Integer ;
   begin
   readln(n);d:=0;h:=0;
   For i:= 1 to n do
   readln(a[i]);
   max:=a[1];
   min:=a[1];
   for i :=1 to n do
   begin
   If a[i]>max then max := a[i];
   If a[i]<min then min:= a[i];
   If a[i] mod 2 = 0 then d:=d+1 else h:=h+1;
   end;
   writeln(max);
   writeln(min);
   writeln(d);
   writeln(h);
   end.

   Bình luận

2. program ct

   uses crt;

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

         i,n,d1,d2,max,min:integer;

   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;

        max:=A[1]; min:A[1];

      for i:=1 to n do

        begin

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

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

           if A[i] mod 2=0 then inc(d1);

           if A[i] mod 2<>0 then inc(d2);

        end;

      writeln(‘So lon nhat la: ‘,max);

      writeln(‘So lon nho la: ‘,min);

      writeln(‘Co ‘,d1,’ so chan’);

      writeln(‘Co ‘,d2,’ so le’);

   readln;

   end.

   Học tốt!

   Học tốt!

   Bình luận