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
Trần Cương
Xem chi tiết
Ngô Thành Chung
22 tháng 3 2022 lúc 22:07

var a:array[1..100] of integer;

      i,n,S,d:byte;

 begin

  write(' n = '); readln(n);

  for i:=1 to n do begin

                          write('A[',i,'] = ');

                           readln(A[i]);

                          end;

d:=0; S:=0;

for i:=1 to n do if A[i] mod 2 = 0 then begin

                                                          d:=d+1;

                                                           S:=S+A[i];

                                                           end;

write('Dãy có ',d,' phần tử là số chẵn và tổng của chúng là : S = ',S);

readln

end.

                                                          

                      

  

Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Phạm Gia Bình
Xem chi tiết
Anh Phạm
17 tháng 8 2021 lúc 9:54

uses crt;

var n,i,chan,tonchan:integer;

a:array[1..100] of integer;

begin

write('nhap n '); readln(n);

for i:=1 to n do

begin

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

end;

writeln("in cac phan tu trong mang");

for i:=1 to n do

begin

writeln(a[i]);

end;

writeln("in cac phan tu chan");

chan:=0;

for i:=1 to n do

if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;

write('tong cac phan tu chan ',chan);

readln;

end.

 

Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:52

#include <iostream>
using namespace std;
int main()
{
    int a[100][100],i,j,m,n;
    cout<<"Nhap so dong cua mang:"; cin>>n;
    cout<<"Nhap so cot cua mang:"; cin>>m;
    for (i=1; i<=n; i++)
        for (j=1; j<=m; j++)
    {
        cout<<"A["<<i<<","<<j<<"]="; cin>>a[i][j];
    }
    for (i=1; i<=n; i++)
    {
        for (j=1; j<=m; j++)
            cout<<a[i][j]<<" ";
        cout<<endl;
    }
    return 0;
}

 

Quỳnh Như Lê
Xem chi tiết
Edward Paros
13 tháng 4 2023 lúc 23:14

# Nhập vào mảng 1 chiều
n = int(input("Nhập số lượng phần tử của mảng: "))
arr = []
for i in range(n):
    arr.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))

# Đếm số lượng số nguyên chẵn trong mảng
count = 0
even_numbers = []
for i in range(n):
    if arr[i] % 2 == 0:
        count += 1
        even_numbers.append(arr[i])

# In kết quả
print("Số lượng số nguyên chẵn trong mảng là:", count)
print("Các số nguyên chẵn trong mảng là:", even_numbers)

Thu Anh
Xem chi tiết
Minh Lệ
6 tháng 3 2023 lúc 23:38

Program HOC24;

var i,n,d: integer;

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

begin

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

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i] mod 2=0 then d:=d+1;

write('Co ',d,' so chan' );

readln

end.

Huỳnh Mai Anh Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 12 2020 lúc 19:16

uses crt;

var a:array[1..100]of integer;

i,n,dem,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

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

  end;

writeln('Cac so chan la: ');

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then

   begin

write(a[i]:4);

t:=t+a[i];

inc(dem);

end; 

writeln('Tong cac so chan la: ',t);

writeln('Trong day co ',dem,' so chan');

readln;

end.