Cho mảng số nguyên A: a)Hiển thị tất các phần tử của mảng ra màn hình bTìm phần tử min của mảng c)Đếm và in ra các số lẻ d)Đếm và in ra các số chẵn

0 bình luận về “Cho mảng số nguyên A: a)Hiển thị tất các phần tử của mảng ra màn hình bTìm phần tử min của mảng c)Đếm và in ra các số lẻ d)Đếm và in ra các số chẵn”

1. uses crt;
   var a: array[1..1000] of integer;
       n,i,min,csl,csc:integer;
   Begin
   clrscr;
   write(‘Nhap so phan tu cua mang: ‘); readln(n);
   for i:=1 to n do
    begin
    write(‘a[‘,i,’]’); readln(a[i]);
    end;
   for i:=1 to n do write(a[i],’ ‘);
   writeln;
   min:=a[1];
   for i:=1 to n do
    if a[i]< a[1] then min:=a[i];
   Write(‘Phan tu min cua mang: ‘,min);
   writeln;
   csl:=0;
   for i:=1 to n do
    if a[i] mod 2<>0 then
      csl:=csl+1;
   write(csl,’ so le trong mang la: ‘);
   for i:=1 to n do
    if a[i] mod 2<>0 then
   write(a[i],’ ‘);
   writeln;
   csc:=0;
   for i:=1 to n do
    if a[i] mod 2=0 then
      csc:=csc+1;
   write(csc,’ so chan trong mang la: ‘);
   for i:=1 to n do
    if a[i] mod 2=0 then
   write(a[i],’ ‘);
   readln;
   end.

   Bình luận

2. program timsochan;

   uses crt;

   var i,n, dem : integer;  min, max : real;

   a : array [1..100] of real;

   Begin clrscr;

   dem1 :=0; dem2 :=0;

   Writeln(‘Nhap cac phan tu n :’); readln(n);

   For i:=1 to n do

   Begin

   Writeln(‘Nhap a[‘,i,’] = ‘); readln(a[i]);

   end;

   min := a[1];

   For i :=1 to n do

   If a[i] < min then min := a[i];

   Writeln(‘Phan tu nho nhat la :, min);

   For i :=1 to n do 

   If a[i] mod 2 = 0 then dem1 :=dem1+1;

   For i :=1 to n do 

   If a[i] mod 2 = 1 then dem2:=dem2+1;

   writeln(‘Dem so le ‘, dem2, ‘dem so chan’, dem 1);

   readln

   end.

   Bình luận