K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

uses crt;

var a:array[1..2,1..5]of integer;

i,j,t:integer;

begin

clrscr;

for i:=1 to 2 do 

 for j:=1 to 5 do

begin

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

end;

t:=0;

for i:=1 to 2 do 

 for j:=1 to 5 do 

if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

#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;
}

 

21 tháng 11 2016

mảnh đó bao nhiêu phần tử

uses crt;

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

i,t:integer;

begin

for i:=1 to 10 do 

  begin

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

end;

t:=0;

for i:=1 to 10 do 

  t:=t+a[i];

writeln('Tong cua day la: ',t);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.

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.

11 tháng 3 2023

n = int(input("Nhập số 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) + ": ")))

even_arr = []

odd_arr = []

for num in arr:

     if num % 2 == 0:

          even_arr.append(num)

     else:

          odd_arr.append(num)

new_arr = even_arr + odd_arr

print("Mảng mới: ", new_arr)

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

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

t=0;

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

cout<<t<<endl;

sort(a+1,a+n+1);

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

2 tháng 5 2023

Program HOC24;

var i: byte;

t: longint;

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

begin

For i:=1 to 10 do 

begin

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

end;

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

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

readln

end.