Question

[Phạm Khánh Linh]

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ố                                                                                                                                                                                                          

Answer 1

[KhảTâm]

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);