Viết chương trình nhập vào một dãy số nguyên gồm n phân tử, rồi xuất ra màn hình:a) Các phân tử chẵnb) Tổng các phân tử đã nhập vào c) Phân tử có giá trị nhỏ nhất và phân tử có giá trị lớn nhấtd) Số lượng phân tử chia hết cho 3 trong dãy số ...
Đọc tiếp
Viết chương trình nhập vào một dãy số nguyên gồm n phân tử, rồi xuất ra màn hình:
a) Các phân tử chẵn
b) Tổng các phân tử đã nhập vào
c) Phân tử có giá trị nhỏ nhất và phân tử có giá trị lớn nhất
d) Số lượng phân tử chia hết cho 3 trong dãy số
Program mang1chieu;
uses crt;
var a:array[1..100] of integer; s,dem,i,n,min,max :integer;
begin
s:=0; dem:=0;
writeln('nhap do dai day');readln(n);
for i:=1 to n do begin writeln('a[',i,']');readln(a[i]); s:=s+a[i]; if a[i] mod 3 =0 then dem:=dem +1;end;
for i:=1 to n do if a[i] mod 2 = 0 then write('cac phan tu chan',a[i],' ');
write('tong cac phan tu da nhap vao la',s);
min :=a[1]; max:=a[1];
for i:= 2 to n do if a[i] <min then min:=a[i];
for i:= 2 to n do if a[i]> max then max:=a[i];
write('so lon nhat trong day la',max); write('so nho nhat trong day la',min);
write('so phan tu chia het cho 3 la:',dem);