uses crt;
var a:array[1..100]of integer;
i,n,dem,dem1,dem2,t:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
for i:=1 to n do
write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]>10 then inc(dem);
writeln('So phan tu lon hon 10 la: ',dem);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln('So luong so chan la: ',dem1);
writeln('So luong so le la: ',dem2);
t:=0;
s:=1;
for i:=1 to n do
begin
if (i mod 2=0) and (a[i] mod 2<>1) then t:=t+a[i];
if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];
end;
writeln('Tong cac so o vi tri chan co gia tri le la: ',t);
writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);
writeln('Cac so le la: ');
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
writeln;
writeln('Cac so chan va lon hon 10 la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);
readln;
end.
hãy xác định bài toán và viết thuật toán để đếm xem trong dãy A các số a1; a2; ...an có bao nhiêu số chẵn và bao nhiêu số lẻ
Input: số phần tử của dãy A, dãy a1,a2...an.
Output:số phần tử chẵn, lẻ.
thuật toán:
B1: demchan <--0; demle <--0; i<--1;
B2: nếu a[i] mod 2=0 then demchan <-- demchan+1. ngược lại demle <--demle+1;
B3: i <--i+1;
B4: nếu i<=n thì quay lại bước 2;
B5: thông báo giá trị demchan và demle và kết thúc thuật toán.
chúc bạn học tốt
Bài 1. Bài toán và thuật toán (xác định bài toán, viết thuật toán): Cho dãy gồm N số nguyên a1,...,aN. a) Tính tổng các số hạng có giá trị chẵn/lẻ có trong dãy. b) Tính tổng các số hạng có vị trí chẵn/lẻ có trong dãy. c) Đếm các số hạng có giá trị chẵn/lẻ/bằng K có trong dãy.
cho A và dãy số a1,a2.... an. viết thuật toán:
a) tính tổng các số chẵn có trong dãy.
b) tính tổng các số lẻ trong dãy
uses crt;
var a: array [1..100] of integer;
n, i, tsc, tsl: integer
begin
clrscr;
write('So phan tu cua mang la: '); readln(n);
while n<1 do begin
write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);
end;
for i:=1 to n do begin
write('So thu ',i,' la: '); readln(a[i]);
end;
tsc:=0;
tsl:=0;
for i:=1 to n do
if a[i] mod 2 =0 then tsc:=tsc+a[i]
else tsl:=tsl+a[i];
writeln('tong cac so chan la: ',tsc);
write('tong so cac so le la: ',tsl);
readln;
end.
Program bai1;
uses crt;
var i,n,s,s1: integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap n =');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
for i:= 1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln('tong cac so duong = ' ,s);
for i:= 1 to n do
if a[i] mod 2 <> 0 then s1:=s1+a[i];
writeln('tong cac so le =' ,s1);
readln;
end.
Cho A và dãy số a1,a2.... an. viết thuật toán:
a) Tính tổng các số chẵn có trong dãy.
b) Tính tổng các số lẻ trong dãy
for i:=1 to n do
if a[i] mod 2=0 then s:=s+a[i] else ss:=ss+a[i];
writeln(' a)', s);
write(' b),ss);
Xây dựng thuật toán cho bài toán sau: cho 1 số nguyên dương N và dãy số nguyên A: a1,a2…aN. Hãy tính: a) Tổng các phần tử có giá trị dương: a1+a3+a5+a7 b) đếm xem trong dãy A có bao nhiêu phần tử có giá trị
a: #incldue <bits/stdc++.h>
using namespace std;
long long i,n,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) t=t+x;
}
cout<<t;
return 0;
}
Cho thuật toán, giải bằng 2 cách liệt kê và vẽ sơ đồ khối
Bài 1: Cho dãy A gồm N số nguyên A1…AN. Hãy tính tổng các số các số chẵn và tổng các số lẻ có trong dãy.
Bài 2: Cho dãy A gồm N số nguyên A1…AN. Hãy đếm tất cả các số chẵn trong dãy.
Bài 3: Cho dãy A gồm N số nguyên A1…AN. Hãy cho biết có bao nhiêu số trong dãy có giá trị bằng 0.
Bài 4: Cho dãy A gồm N số nguyên A1…AN. Hãy đếm tất cả các số chẵn không âm trong dãy.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long n,x,i,t1,t2;
int main()
{
cin>>n;
t1=0; t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) t1=t1+x;
else t2=t2+x;
}
cout<<t1<<" "<<t2;
return 0;
}
Viết thuật toán , cho dãy A gồm N số nguyên A1,A2....An
Câu 1: Đếm số lượng số âm trong dãy A
Câu 2: Tính tổng các số lẻ có trong A Câu 3: Đưa ra vị trí các số chẵn trong A
Viết thuật toán đếm số lượng số chẵn có trong dãy số nguyên gồm N số từ a1,a2,...aN. Tìm Input, Output. Thuật toán liệt kê và vẽ sơ đồ khối
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}