a. Đếm số phần tử là số chẵn
b. Tính tổng các phần tử là số nguyên dương
c. Đếm và tính tổng các phần tử là số nguyên âm
d.in mảng theo chiều ngược lại
Quảng cáo
3 câu trả lời 764
Input: N, dãy số nguyên a1,a2,...,aN và k
Output: Số phần tử là bội của k
Thuật toán liệt kê:
Bước 1: Nhập N, dãy số nguyên a1,a2,...,aN và k
Bước 2: d←0; i←1;
Bước 3: Nếu i>N thì in ra d và kết thúc
Bước 4: Nếu ai chia hết cho k thì d←d+1;
Bước 5: i←i+1; quay lại bước 3
nput: N, dãy số nguyên a1,a2,...,aN và k
Output: Số phần tử là bội của k
Thuật toán liệt kê:
Bước 1: Nhập N, dãy số nguyên a1,a2,...,aN và k
Bước 2: d←0; i←1;
Bước 3: Nếu i>N thì in ra d và kết thúc
Bước 4: Nếu ai chia hết cho k thì d←d+1;
Bước 5: i←i+1; quay lại bước 3
uses crt;
var a:array[-32000..32000] of integer;
i,n,dem,s,x,dem2:integer;
begin
clrscr;
read(n);
for i:=1 to n do read(a[i]);
readln;
for i:=1 to n do
begin
if a[i] mod 2=0 then dem:=dem+1;
if a[i]>0 then s:=s+a[i];
if a[i]<0 then
begin
dem2:=dem2+1;
x:=x+a[i];
end;
end;
writeln('So phan tu la so chan: ',dem);
writeln('Tong cac phan tu la so nguyen duong: ',s);
writeln('Co ',dem2,' phan tu nguyen am, tong cua chung la ',x);
for i:=n downto 1 do write(a[i]:4);
readln
end.
Quảng cáo