Bài. Viết CT sử dụng biến mảng nhập vào 4 phần tử là số nguyên – Tính trung bình cộng của dãy số nguyên đó – Tìm tất cả các phần tử là số chẵn, lẻ – T

0 bình luận về “Bài. Viết CT sử dụng biến mảng nhập vào 4 phần tử là số nguyên – Tính trung bình cộng của dãy số nguyên đó – Tìm tất cả các phần tử là số chẵn, lẻ – T”

1. uses crt;

   var a: array[1..4] of integer;

   i,min,max,dl,dc: integer;

   tbc: real;

   begin

   clrscr;

   for i:=1 to 4 do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

   if a[i] mod 2=0 then dc:=dc+1;

   if a[i] mod 2<>0 then dl:=dl+1;

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

   tbc:=tbc+a[i];

   end;

   tbc:=tbc/4;

   min:=a[1];

   for i:=2 to 4 do

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

   writeln (‘trung binh cong cua day so nguyen tren la: ‘,tbc:1:2);

   write (‘cac so le trong day: ‘); 

   for i:=1 to 4 do if a[i] mod 2<>0 then write (a[i],’  ‘);

   writeln;

   write (‘cac so chan trong day: ‘); 

   for i:=1 to 4 do if a[i] mod 2=0 then write (a[i],’  ‘);

   writeln;

   writeln (‘so lon nhat: ‘,max);

   writeln (‘so be nhat: ‘,min);

   writeln (‘trong mang so ‘,dl,’ phan tu le’);

   writeln (‘trong mang so ‘,dc,’ phan tu chan’);

   readln;

   end.

   

   Bình luận