Những câu hỏi liên quan
Lê Thế
Xem chi tiết
Đoàn Xuân Sơn
7 tháng 9 2021 lúc 21:54

program so_le;
uses crt;
var
n,i,d:integer;
a:Array[1..32000] of integer;
begin
clrscr;

write('nhap n: ');

readln(n);

for i:= 1 to n do

begin

write('nhap a[',i,']: ');

readln(a[i]);

end;

d:=0;

for i:= 1 to n do

if a[i] mod 2 <> 0 then d:=d+1;
write('so luong so nguyen la so le la: ',d);

readln;

end.

Bình luận (0)
Nguyễn Thành Đạt
Xem chi tiết
Nguyễn Thành Đạt
10 tháng 5 2021 lúc 16:35

help đi mà pls

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 17:53

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 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.

Bình luận (0)
Trần Thanh Triều
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:43

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]>0 then write(a[i]:4);

writeln;

for i:=1 to n do

  if a[i]<0 then write(a[i]:4);

readln;

end.

Bình luận (0)
Nguyễn Gia Huy
Xem chi tiết
Thanh Phong (9A5)
15 tháng 3 2023 lúc 5:50

Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if( i mod 2<>0) then write(i:3);

readln;

end.

 

Bình luận (0)
Lê Gia Anh
19 tháng 3 2023 lúc 20:25

uses crt;

var i,n:longint;

begin 

writeln('nhap n'); readln(n);

for i:=1 to n do if i mod 2 =1 then 

writeln(i);

readln;

end.

ngu ththế mà cũng ko làm được về lớp 1 mà học

Bình luận (0)
Quân Đoàn Long Tường
Xem chi tiết
Thành Phạm
26 tháng 4 2023 lúc 10:20

Python:
n = input("Nhập dãy số nguyên: ").split()
n = [int(i) for i in n]

so_le = [i for i in n if i % 2 != 0]
tong = sum(n)

print("Các số lẻ trong dãy là: ", so_le)
print("Tổng các số trong dãy là: ", tong)

Pascal:

program tongvasole;

const
  MAX_SIZE = 1000;

var
  numbers: array[1..MAX_SIZE] of Integer;
  count, i: Integer;
  total: Integer;
begin
  Write('Nhập số lượng phần tử trong dãy: ');
  ReadLn(count);
  for i := 1 to count do
  begin
    Write('Nhập phần tử thứ ', i, ': ');
    ReadLn(numbers[i]);
  end;

  Write('Các số lẻ trong dãy là: ');
  total := 0;
  for i := 1 to count do
  begin
    if numbers[i] mod 2 <> 0 then
      Write(numbers[i], ' ');
    total := total + numbers[i];
  end;
  WriteLn;

  WriteLn('Tổng các số trong dãy là: ', total);
end.

Bình luận (0)
Nguyễn minh quân
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2021 lúc 18:11

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.

Bình luận (0)
Lưu Quang Trường
20 tháng 2 2021 lúc 16:19

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.

Bình luận (5)
Phan Thế Hùng
Xem chi tiết
Thanh Phong (9A5)
9 tháng 3 2023 lúc 10:07

Uses crt;

var i,n: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2<>0) then writeln(i);

readln;

end.

 

Bình luận (2)
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:27

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i;

cin>>n;

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

if (i%2==1) cout<<i<<" ";

return 0;

}

Bình luận (0)
Nguyễn Thanh Anh
Xem chi tiết
Kim Chi
Xem chi tiết
Nguyễn Ngọc Thiện Nhân
15 tháng 3 2023 lúc 9:26

Bình luận (0)