0o0 Nhok kawaii 0o0
Cho dãy số (a1, a2, a3, ..., an) là một hoán vị bất kỳ của tập hợp (1, 2, 3, ..., n). Dãy số (b1, b2, b3, ..., bn) gọi là nghịch thế của dãy a nếu bi là số phần tử đứng trước số i trong dãy a mà lớn hơn i. Ví dụ: Dãy a là: 3 2 5 7 1 4 6 Dãy b là: 4 1 0 2 0 1 0 a. Cho dãy a, hãy xây dựng chương trình tìm dãy b. b. Cho dãy b, xây dựng chương trình tìm dãy a. Dữ liệu vào: Trong file NGICH.INP với nội dung: -Dòng đầu tiên là số n (1 n 10 000). -Các dòng tiếp theo là n số của dãy a, mỗi số...
Đọc tiếp

Những câu hỏi liên quan
0o0 Nhok kawaii 0o0
Xem chi tiết
Diệp Nguyễn Linh Đan
3 tháng 11 2021 lúc 15:43

Người ta nói tần số của một số A trong một dãy số A1, A2, …,An là số lần xuất hiện của số A trong dãy A1,A2,…,An.

Ví dụ: Cho dãy số  2 3 4 5 1 3 3 4 3  

Tần số của số 2 là  1. Tần số của số 3 là  4.

Cho một file văn bản có tên TANSO.INP  và có cấu trúc như sau:

Dòng 1:  Chứa số  nguyên N dương  (0<N<=10000)

N dòng tiếp theo: mỗi dòng chứa một số nguyên  Ai (0<Ai<101), các số ghi cách nhau ít nhất một dấu cách trống.

Hãy viết chương trình đọc file trên và tìm tần số xuất hiện của các số trong N số đã cho.  Yêu cầu chương trình chạy không quá 2 giây.

Kết quả xuất ra file văn bản TANSO.OUT   gồm nhiều dòng. Mỗi dòng chứa 2 số  Ai và Ki ghi cách nhau ít nhất một dấu cách trống. Trong đó Ai là số thuộc dãy, Ki là tần số của  số Ai. Ai được xếp tăng dần từ đầu đến cuối file.

Bình luận (0)
Võ Thái An Bình
Xem chi tiết
Nguyên Hưng Trần
29 tháng 7 2021 lúc 10:42

Bài 1:

Uses crt;

var i,n,j:integer;

     a,b,c:array[1..100000] of integer;

Begin

clrscr;

readln(n);

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

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

j:=0;

for i:= 1 to n do 

  Begin

  inc(j);

  c[j] := a[i];

  inc(j);

  c[j] := b[i];

  end;

for i:= 1 to j do write(c[i],'  ');

readln;

end. 

Bình luận (1)
nguyen tien hai
Xem chi tiết
35. Trần Gia Nhi 8elhp
Xem chi tiết
Nguyễn Thị Thanh Nhàn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2021 lúc 13:58

Bài 1: 

uses crt;

var a:array[1..1000000]of longint;

i,n,x:longint;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

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

for i:=1 to n do 

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

readln;

end.

Bình luận (2)
Lê Phương Thảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 21:55

uses crt;

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

i,n,dem,t,t1,t2,t3,t4:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=250);

for i:=1 to n do 

  begin

repeat

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

until (0<a[i]) and (a[i]<=500);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=1 then inc(dem);

writeln('So phan tu co gia tri le la: ',dem);

t:=0;

for i:=1 to n do 

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

writeln('Tong cac phan tu co chi so chan la: ',t);

t1:=0;

for i:=1 to n do 

  if i mod 2=1 then t1:=t1+a[i];

writeln('Tong cac phan tu co chi so le la: ',t1);

t2:=0;

for i:=1 to n do 

  if (i mod 2=0) and (a[i] mod 2=0) then t2:=t2+a[i];

writeln('Tong cac phan tu chan co chi so chan la: ',t2);

t3:=0;

for i:=1 to n do 

  if (i mod 2=1) and (a[i] mod 2=1) then t3:=t3+a[i];

writeln('Tong cac phan tu co chi so le la: ',t3);

t4:=0;

for i:=1 to n do 

  t4:=t4+a[i];

writeln('Trung binh cong cac so trong day la: ',t4/n:4:2);

readln;

end.

Bình luận (0)
ĐÔ ĐÔ
Xem chi tiết
doremon
20 tháng 4 2016 lúc 21:15

khá là khó

Bình luận (0)
Nguyễn Vân Chi
16 tháng 6 2017 lúc 12:48

Bài này lớp 6 mà bạn

Đặt c1=a1-b1, ... , c5=a5-b5.

Có c1+ c+ ...+ c5

= (a1-b1)+(a2-b2)+...+(a5-b5)

= (a1+a2+...+a5)-(b1+b2+...+b5)

=0 (vì b1, b2, b3, b4, b5 là hoán vị của a1, a2, a3, a4, a5)

=> Trong 5 số c1,...,ccó một số chẵn vì từ c1 đến c5 có 5 số

=> Trong các số a1-b1,...,a2-bcó một số chẵn

Vậy ... (đpcm)

Bình luận (0)
Bà Tân VLOG
13 tháng 1 2021 lúc 20:38

lớp 6 con mịe mày

Bình luận (0)
 Khách vãng lai đã xóa
Tôi tên là moi
Xem chi tiết
hoàng đức
Xem chi tiết
Nguyen Huynh
Xem chi tiết
Nguyễn Trọng Đạt
7 tháng 10 2021 lúc 21:00

eoeo

Bài 1.

Bước 1. Nhập N và dãy số a1,a2,...,aNa1,a2,...,aN

Bước 2. i←1i←1S←0S←0

Bước 3. i←i+1i←i+1

Bước 4. 4.1 Nếu i>Ni>N thì kết thúc thuật toán và đưa ra kết quả.

4.2 ai≥0ai≥0 thì quay lại bước 3

4.3 S←S+aiS←S+ai rồi quay lại bước 3

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

Câu 4: 

#include <bits/stdc++.h>

using namespace std;

int main()

{

int a[100],n,i,t;

cin>>n;

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

cin>>a[i];

t=0;

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

if (a[i]<0) t=t+a[i];

cout<<t;

return 0;

}

Bình luận (0)