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
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.

Đỗ 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.

 

ĐOÀN ĐỨC ANH
Xem chi tiết
ĐOÀN ĐỨC ANH
4 tháng 5 2022 lúc 20:08

giúp mình với

Đặng Đức Nam
Xem chi tiết
Kiều Vũ Linh
20 tháng 4 2023 lúc 8:56

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

i,n:integer;

sc,sl:longint;

Begin

Write('Nhap so luong so cua day ');readln(n);

For i:=1 to n do

Begin

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

End;

Write('Tong cac so chan la ');

For i:=1 to n do

If a[i] mod 2 = 0 then sc:=sc+a[i];

Writeln(sc);

Write('Tong cac so le la ');

For i:=1 to n do

If a[i] mod 2 <> 0 then sl:=sl+a[i];

Write(sl);

Readln

End.

AETC丶NhấtㅤGG
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:30

1:

#include <bits/stdc++.h>

using namespace std;

long long n=10, a[10],i,nn;

int main()

{

for (i=1; i<=n; i++) cin>>a[i];

nn=a[1];

for (i=2; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

Bao Duong
Xem chi tiết
Hà Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2022 lúc 9:10

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

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

if (a[i]>0) cout<<a[i]<<" ";

return 0;

}

k_o_t_en
Xem chi tiết
Phía sau một cô gái
8 tháng 5 2023 lúc 20:22

program BaiTap;

var

      A: array[1..150] of integer;

      N, i, sum: integer;

begin

      write('Nhap so phan tu cua day A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      writeln('Day so vua nhap la:');

      for i := 1 to N do

            write(A[i], ' ');

      writeln;

      sum := 0;

      for i := 1 to N do

            if A[i] mod 2 = 0 then

                  sum := sum + A[i];

      writeln('Tong cac phan tu chan trong day la: ', sum);

      readln;

end.

hà phương
Xem chi tiết
Nguyễn Hoàng Tiến
29 tháng 7 2023 lúc 11:21

đitf