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..100]of integer;

i,n,t1,t2,dem1,dem2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

dem1:=0;

t2:=0;

dem2:=0;

for i:=1 to n do 

 begin

if a[i] mod 2=0 then

begin

t1:=t1+a[i];

inc(dem1);

end

else begin

t2:=t2+a[i];

inc(dem2);

end;

end;

writeln('Trung binh cac so chan la: ',t1/dem1:4:2);

writeln('Trung binh cac so le la: ',t2/dem2:4:2);

readln;

end.

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}

18 tháng 2 2023

n = int(input('Nhập n ( n < 150): '))

if n >= 150:

     print('n phải nhỏ hơn 150')

else:

     arr = [ ]

     total = 0

     # Nhập vào dãy số nguyên

     for i in range(n):

          arr.append(int(input('Nhập phần tử thứ ' + str(i+1) + ': ')))

     # In dãy vừa nhập

     print('Dãy vừa nhập là: ', end='')

     for i in range(n):

          print(arr[i], end=' ')

     # Tính tổng các phần tử lẻ

     for i in range(n):

          if arr[i] % 2 != 0:

               total += arr[i]

     print('\nTổng các phần tử lẻ là:', total)

    

uses crt;

var a:array[1..50]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;

for i:=1 to n do 

  write(a[i]:4);

t:=0;

for i:=1 to n do

  if (a[i] mod 2<>0) and (a[i] mod 5=0) then t:=t+a[i];

writeln;

writeln(t);

readln;

end.

2 tháng 5 2023

Program HOC24;

var d,i,n: integer;

t: real;

begin

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

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

d:=0; t:=0;

for i:=1 to n do

if a[i] mod 2=0 then 

begin

d:=d+1;

t:=t+a[i];

end;

t:=t/d;

writeln('Co ',d,' so chan trong mang');

writeln('Trung binh cong cac phan tu chan la: ',t:2:5);

write('Cac phan tu trong day theo chieu doc: ');

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

readln

end.

5 tháng 5 2023

Bài 5:

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

i,n,max:integer;

sc, sl:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');rreadlna[i]);

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

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

End;

max:=a[1];

For i:=2 to n do

If a[i] > max then max:=a[i];

Writeln('Tong cac so chan la ',sc);

Writeln('Tong cac so le la ',sl);

write('So lon nhat la ',max);

Readln

End.

5 tháng 5 2023

Xin cảm ơnloading...  

4 tháng 5 2023

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

i,n:integer;

s:longint;

begin

write('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 s:=s+a[i];

end;

writeln('Tong cac so le cua day la ',s);

write('Day dao nguoc la ');

for i:=n downto 1 do

write(a[i]:8);

readln

end.

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.

20 tháng 2 2021

uses crt;

var i,n: integer;

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

begin

writeln('nhap so nguyen n: '); readln(n);

for i:=1 to n do

begin

writeln('A[',i,']'); readln(a[i]);

if i mod 2 <>0 then writeln(i);

end;

readln;

end.