viết chương trình nhập vào một dãy số dếm xem có bao nhiêu số chẵn, số lẻ tronh dãy số vừa nhập
Những câu hỏi liên quan
Giúp em với:(( Cho một dãy gồm m số nguyên Viết chương trình nhập m số nguyên đó và đếm xem có bao nhiêu số chẵn trong dãy m số vừa nhập
Viết chương trình nhập vào từ bàn phím 1 mảng số nguyên a. cho biết dãy số vừa nhập có bao nhiêu số chẵn b. cho biết dãy số vừa nhập có bao nhiêu số từ 1 đến 50 c. tính tổng các số đó
Var a:array[1..200] of integer;
i,n,d1,d2,s:integer;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
Begin
If a[i] mod 2 = 0 then d1:=d1+1;
If (a[i] > 0) and (a[i] < 51) then d2:=d2+1;
End;
Writeln('Co ',d1,' so chan');
Write('Co ',d2,' so tu 1 den 50');
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy số nguyên n phần tử, đếm có bao nhiêu số chẵn, số lẻ trong dãy
program dem;
var
n, i, chan, le: integer;
a: array[1..1000] of integer;
begin
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
end;
chan := 0;
le := 0;
for i := 1 to n do
begin
if (a[i] mod 2 = 0) then
chan := chan + 1
else
le := le + 1;
end;
writeln('So phan tu chan trong day la: ', chan);
writeln('So phan tu le trong day la: ', le);
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào một dãy số nguyên n phần tử, n nhập từ bàn phím.
a) In ra màn hình dãy số vừa nhập xếp theo thứ tự tăng dần.
b) In ra màn hình các số nguyên tố trong dãy số vừa nhập và đếm xem đã nhập vào bao nhiêu số nguyên tố.
Viết chương trình nhập vào dãy số , đém xem có bao nhiêu số lẽ trong dãy số vừa nhập.
Mọi người giúp em với ạ !!
Program Tin;
Uses crt;
Var i,n,dem:Integer;
a:array[1..10000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
dem:=0;
Writeln('Nhap ',n,' phan tu cua day:');
For i:= 1 to n do
Begin
Write('So thu ',i,': ');
readln(a[i]);
If a[i] mod 2 = 1 then dem:=dem+1;
End;
Writeln('Day co ',dem,' so le');
readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 5 số nguyên bất kì in ra màn hình số chẵn và số lẻ trong dãy số vừa nhập
program PrintEvenOdd;
var
num, even, odd, i: Integer;
begin
even := 0;
odd := 0;
for i := 1 to 5 do
begin
writeln('Nhap so thu ', i, ': ');
readln(num);
if num mod 2 = 0 then
even := even + 1
else
odd := odd + 1;
end;
writeln('Tong chan: ', even);
writeln('Tong le: ', odd);
end.
Đúng 1
Bình luận (0)
Var a:array[1..5] of integer;
i:integer;
Begin
For i:=1 to 5 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Writeln('Cac so chan la ');
For i:=1 to 5 do
If a[i] mod 2 = 0 then write(a[i]:8);
Writeln;
Write('Cac so le la ');
For i:=1 to 5 do
If a[i] mod 2 <> 0 then write(a[i]:8);
Readln
End.
Đúng 1
Bình luận (0)
Câu 1 : Viết chương trình nhập vào dãy số gồm n phần tử. Tính và in ra màn hình tổng các số chẵn, các số lẻ của dãy vừa nhập
program TongChanLe;
var
n,i, chans, les: integer; a: array[1..100] of integer;
begin
chans := 0;
les := 0;
write('Nhap n: ');
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
chans := chans + a[i]
else
les := les + a[i];
end;
writeln('Tong cac so chan la: ', chans);
writeln('Tong cac so le la: ', les);
readln;
end.
Đúng 2
Bình luận (1)
Viết chương trình nhập vào dãy số nguyên từ bàn phím, sau đó kiểm tra đếm và in ra dãy có bao nhiêu số dương, âm, chẵn, lẻ.
1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 3:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)