Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Đỗ Duy
Xem chi tiết
Dương Bảo Nguyên
3 tháng 4 2022 lúc 20:24

uses crt;
var A : array [1 .. 10] of integer;
i, n, d : integer;
begin
clrscr;
d := 0;
write('Nhap so luong phan tu : '); readln(n);
for i := 1 to n do
    begin
        write('Nhap so thu ', i ,' : ');
        readln(A[i]);
        if A[i] mod 2 = 0 then 
            d := d + 1;
    end;
write('Cac phan tu vua nhap : ');
for i := 1 to n do write(A[i],' ');
writeln; write('Day co ', d ,' so chan ');
readln
end.

 

Đỗ Duy
Xem chi tiết
Trịnh Ngọc Hân
19 tháng 5 2021 lúc 16:43

Program bt;

Uses crt;

Var a:array [1..1000] of integer;

         n,i: integer;

Begin

Write( 'Moi 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( 'Cac so chan la',a[i]);

     Readln;

End.

 

Dương Bảo Nguyên
3 tháng 4 2022 lúc 20:25

uses crt;
var A : array [1 .. 10] of integer;
i, n, d : integer;
begin
clrscr;
d := 0;
write('Nhap so luong phan tu : '); readln(n);
for i := 1 to n do
    begin
        write('Nhap so thu ', i ,' : ');
        readln(A[i]);
        if A[i] mod 2 = 0 then 
            d := d + 1;
    end;
write('Cac phan tu vua nhap : ');
for i := 1 to n do write(A[i],' ');
writeln; write('Day co ', d ,' so chan ');
readln
end.

 

Nguyễn Thị Ngọc Oanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 1 2022 lúc 21:55

#include <bits/stdc++.h>

using namespace std;

long long dem,x,n,i,t;

int main()

{

cin>>n;

t=0;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2==0)

{

dem++;

t+=x;

}

}

cout<<dem<<" "<<t;

return 0;

}

Kiều Vũ Linh
22 tháng 1 2022 lúc 8:00

Var s,n,i,dem,so:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i);readln(so);

If so mod 2 = 0 then

Begin

dem:=dem+1;

s:=s+so;

End;

End;

Writeln('Co ',dem,' so chan');

Write('Tong cac so chan la ',s);

Readln;

End.

Phan Thu
Xem chi tiết
Mai Ban
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 11 2021 lúc 23:34

#include <bits/stdc++.h>

using namespace std;

long long a[10],i;

int main()

{

for (i=1; i<=10; i++)

cin>>a[i];

for (i=1; i<=10; i++)

cout<<a[i]<<" ";

cout<<endl;

for (i=1; i<=10; i++)

if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

Dương Bảo Nguyên
3 tháng 4 2022 lúc 20:21

uses crt;
var A : array [1 .. 10] of integer;
i : integer;
begin
clrscr;
for i := 1 to 10 do
    begin
        write('Nhap so thu ', i ,' : ');
        readln(A[i]);
    end;
write('Cac gia tri chan : ');
for i := 1 to 10 do
    if A[i] mod 2 = 0 then 
        write(A[i], ' ');
readln
end.

Đạt Nguyễn
Xem chi tiết
Minh Lệ
25 tháng 5 2021 lúc 10:47

Program HOC24;

var a: array[1..32000] of string;

d,i,n: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

 write('a[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do

if length(a[i]) = 3 then d:=d+1;

write('Co ',d,' so co 3 chu so trong day');

readln

end.

Thiên Kim
Xem chi tiết
vy tường
Xem chi tiết
Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:26

uses crt;
var a: array[1..100] of integer;
i,n,s,s1,s2,s3: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);

for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
write('day vua nhap la:');
s:=0;
for i:=1 to n do
begin
write(a[i],' ');
s:=s+a[i];
if a[i] mod 2=0 then s1:=s1+a[i];
if a[i] mod 2<>0 then s2:=s2+a[i];
if a[i] mod 3=0 then s3:=s3+a[i];
end;
writeln;
writeln('tong bang:',s);
writeln('tong chan:',s1);
writeln('tong le:',s2);
writeln('tong chia het cho 3:',s3);
readln
end.

Cẩm Tú
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2021 lúc 17:07

Rồi làm gì nữa bạn?