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.

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[1000];

int main()

{

cin>>n;

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

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

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

return 0;

}

18 tháng 2 2022

Tham khảo: 

program ct;

uses crt;

var a,b,h,S:integer;

begin clrscr;

   writeln('Nhap do dai hai day: '); readln(a,b);

   writel('Nhap chieu cao: '); readln(h);

     S:=h*((a+b)/2);

   writeln('Dien tich hinh thang do la: ',S);

readln;

end.

uses crt;

var s,a,b,h:real;

begin

clrscr;

readln(a,b,h);

s:=(a+b)/2*h;

writeln(s:4:2);

readln;

end.

Giúp me vs!Câu 1: Theo em viết chương trình là   A. Tạo ra các câu lệnh được sắp xếp theo một trình tự nào đó.   B. Viết ra một đoạn văn bản được sắp xếp theo chương trình.   C. Viết ra các câu lệnh mà em đã được học.   D. Tạo ra các câu lệnh để điều khiển Robot.Câu 2: Chương trình dịch dùng để:   A. Dịch từ ngôn ngữ lập trình sang ngôn ngữ máy.   B. Dịch từ ngôn ngữ lập trình sang ngôn ngữ tự...
Đọc tiếp

Giúp me vs!

Câu 1: Theo em viết chương trình là

   A. Tạo ra các câu lệnh được sắp xếp theo một trình tự nào đó.

   B. Viết ra một đoạn văn bản được sắp xếp theo chương trình.

   C. Viết ra các câu lệnh mà em đã được học.

   D. Tạo ra các câu lệnh để điều khiển Robot.

Câu 2: Chương trình dịch dùng để:

   A. Dịch từ ngôn ngữ lập trình sang ngôn ngữ máy.

   B. Dịch từ ngôn ngữ lập trình sang ngôn ngữ tự nhiên.

   C. Dịch từ ngôn ngữ máy sang ngôn ngữ lập trình.

   D. Dịch từ ngôn ngữ máy sang ngôn ngữ tự nhiên.

Câu  3: Trong ngôn ngữ lập trình Pascal, từ không phải từ khóa là:

A. Uses.      B. Program.          C. End.                 D. Computer.

Câu 4:  Tên nào viết đúng theo quy tắc đặt tên trong Pascal?

A. tin hoc 8ª.         B. Tin học 8.         C. Tin_hoc_8.       D. TINHOC 8.

Câu  5: Để nhập dữ liệu ta dùng lệnh

          A. Clrscr;         B. Readln(x);       C. X:= ‘dulieu’;           D. Write(‘Nhap du lieu’);                                                                   

1
10 tháng 5 2023

1.A

2.A

3.D

4.C

5.B

10 tháng 5 2023

Cảm ơn ạ!

#include <bits/stdc++.h>

using namespace std;

long long a[200],n,i;

int main()

{

cin>>n;

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

cin>>a[i];

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

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

return 0;

}

const fi='input.txt';

fo='output.txt';

var f1,f2:text;

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

i,n,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

begin

inc(n);

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write(f2,t);

close(f1);

close(f2);

end.

#include <bits/stdc++.h>

using namespace std;

double a[100];

int i,n;

int main()

{

cin>>n;

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

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

cout<<endl;

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

swap(a[i],a[n+1-i]);

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

return 0;

}

24 tháng 2 2022

bn ơi bn làm bằng pascal đc ko ạ, mik cần cả hai cái lun

 

uses crt;

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

i,n,tam,j:integer;

{---------------chuong-trinh-con----------------------}

procedure hoandoi(x,y:integer);

var tam:integer;

begin

tam:=x;

x:=y;

y:=tam;

end;

{--------------------chuong-trinh-chinh---------------------------}

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-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then

begin

hoandoi(a[i],a[j]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

27 tháng 2 2023

var A:

     array[1..n] of integer;

     i, j, n: integer;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhap phan tu thu ', i, ': ');

          readln(A[i]);

     end;

 

     for i := 1 to n - 1 do

         for j := i+1 to n do

            if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then

            begin

                swap(A[i], A[j]);

            end;

     writeln('Mang da sap xep la: ');

      for i := 1 to n do

         writeln(A[i]);

end.