Nhập dữ liệu cho mảng 1 chiều có n phần tử
• Đưa ra giá trị min của mảng trên (4.5)
• Tính tổng các phần tư thỏa mãn điều kiện là số chẵn trong mảng (4.5)
• * Đếm số lượng các phần tử trong mảng thỏa mãn là số Nguyên tố (1)
Nhập dữ liệu cho mảng 1 chiều có n phần tử
• Đưa ra giá trị min của mảng trên (4.5)
• Tính tổng các phần tư thỏa mãn điều kiện là số chẵn trong mảng (4.5)
• * Đếm số lượng các phần tử trong mảng thỏa mãn là số Nguyên tố (1)
uses crt;
var n,i,j,min,tong,dem:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
min:=high(longint);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’ cua mang: ‘);readln(a[i]);
if a[i]<min then min:=a[i];
if a[i] mod 2=0 then inc(tong,a[i]);
j:=2; while(a[i]>1)and(a[i] mod j<>0)do inc(j);
if j=a[i] then inc(dem);
end;
writeln(‘Gia tri min: ‘,min);
writeln(‘Tong cac so chan trong mang: ‘,tong);
writeln(‘So luong so nguyen to trong mang: ‘,dem);
readln
end.
/////////////////////////////
Test:
Bẹn tham khảo thử