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 4 2023

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

i,n:integer;

s:longint;

Begin

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

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

GIUP MINH VS NHA MK DANG CAN GAPBờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích...
Đọc tiếp

GIUP MINH VS NHA MK DANG CAN GAP

Bờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích chọn cặp số giá trị lớn. Vì vậy, để tính toán dễ hơn, trong mỗi ván chơi Cuội sẽ cho bạn biết dãy số Bờm đưa ra và nhờ bạn xác định tích 𝑃 = 𝑋 × 𝑌 lớn nhất có thể phù hợp với dãy đó (nghĩa là tồn tại cặp số (𝑋, 𝑌) sao cho tích của chúng bằng 𝑃 mà tổng và hiệu của chúng đều xuất hiện trong dãy Bờm đưa ra). Dữ liệu  Dòng 1: số nguyên 𝑁 (2 ≤ 𝑁 ≤ 50) là số phần tử của dãy Bờm đưa ra  Dòng 2: 𝑁 số nguyên dương đôi một phân biệt là các phần tử dãy Bờm đưa ra, các số đều trong phạm vi 1 … 100. Kết quả  Dòng 1: số nguyên là tích lớn nhất tính được. Số này chắc chắn tồn tại vì Bờm không bao giờ chơi gian dối. Ví dụ BDOANSO.INP BDOANSO.OUT 3 1 4 5 6Bờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích chọn cặp số giá trị lớn. Vì vậy, để tính toán dễ hơn, trong mỗi ván chơi Cuội sẽ cho bạn biết dãy số Bờm đưa ra và nhờ bạn xác định tích 𝑃 = 𝑋 × 𝑌 lớn nhất có thể phù hợp với dãy đó (nghĩa là tồn tại cặp số (𝑋, 𝑌) sao cho tích của chúng bằng 𝑃 mà tổng và hiệu của chúng đều xuất hiện trong dãy Bờm đưa ra). Dữ liệu  Dòng 1: số nguyên 𝑁 (2 ≤ 𝑁 ≤ 50) là số phần tử của dãy Bờm đưa ra  Dòng 2: 𝑁 số nguyên dương đôi một phân biệt là các phần tử dãy Bờm đưa ra, các số đều trong phạm vi 1 … 100. Kết quả  Dòng 1: số nguyên là tích lớn nhất tính được. Số này chắc chắn tồn tại vì Bờm không bao giờ chơi gian dối. Ví dụ BDOANSO.INP 3 1 4 5 BDOANSO.OUT  6

0

uses crt;

var n,i:integer;

m:real;

begin

clrscr;

repeat

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

until (1<=n) and (n<=30000);

m:=0;

for i:=1 to n do 

  m:=m+sqrt(i);

writeln('m=',m:4:2);

readln;

end.

8 tháng 3 2021

đó là câu trả lời cho dòng 1 đúng không ạ

Dưới đây là mã chương trình Pascal để sắp xếp dãy số theo yêu cầu đã cho:

```pascal
program sorting;

const
MAX_N = 1000;

var
N, i, j, temp: integer;
arr: array[1…MAX_N] of integer;
oddArr, evenArr: array[1…MAX_N] of integer;
oddCount, evenCount: integer;
inputFile, outputFile: text;

begin
// Mở file input và đọc dữ liệu
assign(inputFile, 'sorting.inp');
reset(inputFile);
readln(inputFile, N);
for i := 1 to N do
read(inputFile, arr[i]);
close(inputFile);

// Sắp xếp mảng theo yêu cầu
oddCount := 0;
evenCount := 0;
for i := 1 to N do
begin
if arr[i] mod 2 = 1 then
begin
oddCount := oddCount + 1;
oddArr[oddCount] := arr[i];
end
else
begin
evenCount := evenCount + 1;
evenArr[evenCount] := arr[i];
end;
end;

// Sắp xếp mảng số lẻ tăng dần
for i := 1 to oddCount - 1 do
for j := i + 1 to oddCount do
if oddArr[i] > oddArr[j] then
begin
temp := oddArr[i];
oddArr[i] := oddArr[j];
oddArr[j] := temp;
end;

// Sắp xếp mảng số chẵn giảm dần
for i := 1 to evenCount - 1 do
for j := i + 1 to evenCount do
if evenArr[i] < evenArr[j] then
begin
temp := evenArr[i];
evenArr[i] := evenArr[j];
evenArr[j] := temp;
end;

// Mở file output và ghi kết quả
assign(outputFile, 'sorting.out');
rewrite(outputFile);
for i := 1 to oddCount do
write(outputFile, oddArr[i], ' ');
writeln(outputFile);
for i := 1 to evenCount do
write(outputFile, evenArr[i], ' ');
close(outputFile);
end.
```

Bạn có thể sao chép mã chương trình trên vào một tệp tin có tên `sorting.pas`, sau đó tạo một tệp tin `sorting.inp` và nhập dữ liệu theo định dạng đã cho. Chạy chương trình và kết quả sẽ được ghi vào tệp tin `sorting.out`.

var i,n:longint; a:array[1..1000] of longint;

begin

readln(n);

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

for i:=1 to n do

     if a[i] mod 2=0 then 

         begin

              inc(k);

              b[k]:=a[i];

         end

else

begin

inc(t);

c[t]:=a[i];

end;

for i:=1 to k-1 do

for j:=i+1 to k do

if b[i]<b[j] then

begin

d:=b[i];

b[i]:=b[j];

b[j]:=d;

end;

for i:=1 to  t-1 do

for j:=i+1 to t do

if c[i]>c[j] then

begin

d:=c[i];

c[i]:=c[j];

c[j]:=d;

end;

for i:=1 to k do write(b[i],' ');

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

end.

29 tháng 7 2021

uses crt;

var f,g:text;

n,i,m,k,j:integer;

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

const fi='BAI2.INP'; fo='BAI2.OUT';

begin

assign(f,fi); reset(f);

assign(g,fo); rewrite(g);

readln(f,n);

for i:=1 to n do

readln(f,a[i]);

for i:=1 to n do

begin

m:=a[i];

for j:=i+1 to n do

if odd(m+a[j])=false then k:=k+1;

end;

write(g,k);

close(f);

close(g);

end.