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.

#include <bits/stdc++.h>

using namespace std;

int n,A[100],i,dem=0;

int main()

{

cin>>n;

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

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

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

cout<<A[i]<<" ";

cout<<endl;

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

if (A[i]%2==0) dem++;

cout<<dem;

}

Hãy cùng với bạn thực hiện theo quy trình 5 bước để giải quyết vấn đề trong tình huống dưới đây.Tình huống: Tranh thủ giờ ra chơi, các bạn học sinh đến thư viện của nhà trường mượn sách và xảy ra tình trạng một số học sinh chưa mượn được sách đã phải trở về lớp để vào tiết học tiếp theo.Một số thông tin về thư viện của nhà trường như sau: Thư viện của nhà trường có rất nhiều sách...
Đọc tiếp

Hãy cùng với bạn thực hiện theo quy trình 5 bước để giải quyết vấn đề trong tình huống dưới đây.

Tình huống: Tranh thủ giờ ra chơi, các bạn học sinh đến thư viện của nhà trường mượn sách và xảy ra tình trạng một số học sinh chưa mượn được sách đã phải trở về lớp để vào tiết học tiếp theo.

Một số thông tin về thư viện của nhà trường như sau: Thư viện của nhà trường có rất nhiều sách và chưa ứng dụng công nghệ thông tin vào công tác quản lí thư viện; Mỗi học sinh đến mượn sách cần điền thông tin vào phiếu mượn sách, đưa cho nhân viên thư viện; Nhân viên thư viện đi lấy sách để giao cho học sinh mượn; Do không nhớ hết vị trí của các cuốn sách trong thư viện và không biết cuốn sách đã được mượn hết hay chưa nên đôi khi thời gian nhân viên thư viện tìm sách khá lâu

 


 [A1] 

 

 

 

0
25 tháng 2 2023

program tongcacsole;

uses crt;

var i, n:integer;

s: longint;

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

begin

clrscr;

write ( ' hay nhap so phan tu cua day so, n= '); readln(n);

writeln( ' nhap cac phan tu cua day so: ');

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 s := s + i;

writeln ( ' tong cac so le: ' , s);

readln

end.

Tham khảo qua ạ , mình cũng không chắc đúng hay sai #yT
25 tháng 2 2023

Cảm ơn bạn nhé ❤️😍😅

25 tháng 2 2023

Program HOC24;

var i,d: byte;

n,l: real;

begin

n:=100;

while n<200 do

begin

l:=n/100*10;

n:=n+l;

d:=d+1;

end;

write('Ket qua la: ',d);

readln 

end.

25 tháng 2 2023

Phải cho thêm dữ kiện chứ ạ?

27 tháng 2 2023

nghĩ đến 2 kiếp sau chắc cũng ko ra nổiohoohooho

Chọn D

25 tháng 2 2023

Đề không có đáp án đúng, bạn kiểm tra lại đề nhé

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do

if i mod 7=0 then inc(dem);

write(dem);

readln;

end.