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.

Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình các thông tin sau : Tổng các phần tử của dãy. Số lượng các số hạng dương và tổng của các số hạng dương. Số lượng các số hạng âm và tổng của các số hạng âm. Trung bình cộng của cả dãy. Trung bình cộng các phần tử dương của mảng. Trung bình cộng các phần tử âm của mảng. Chỉ số của số hạng dương đầu tiên của dãy. Chỉ số...
Đọc tiếp

Nhập vào một dãy n số nguyên A[1],A[2],...,A[n] . Đọc ra màn hình các thông tin sau :

  1. Tổng các phần tử của dãy.
  2. Số lượng các số hạng dương và tổng của các số hạng dương.
  3. Số lượng các số hạng âm và tổng của các số hạng âm.
  4. Trung bình cộng của cả dãy. Trung bình cộng các phần tử dương của mảng. Trung bình cộng các phần tử âm của mảng.
  5. Chỉ số của số hạng dương đầu tiên của dãy.
  6. Chỉ số của số hạng âm đầu tiên của dãy.
  7. Chỉ số của số hạng dương cuối cùng của dãy.
  8. Chỉ số của số hạng âm cuối cùng của dãy.
  9. Số hạng lớn nhất của dãy và chỉ số của nó.
  10. Số hạng nhỏ nhất của dãy và chỉ số của nó.
  11. Số hạng âm lớn nhất của dãy và chỉ số của nó.
  12. Số hạng dương nhỏ nhất của dãy và chỉ số của nó.
  13. Giá trị lớn thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị lớn nhì.
  14. Giá trị nhỏ thứ nhì của dãy và các chỉ số của các số hạng đạt giá trị nhỏ nhì.
  15. Số lượng các số dương liên tiếp nhiều nhất.
  16. Số lượng các số hạng dương liên tiếp có tổng lớn nhất.
  17. Số lượng các số hạng âm liên tiếp nhiều nhất.
  18. Số lượng các số hạng âm liên tiếp có tổng lớn nhất.
  19. Số lượng các số hạng liên tiếp đan dấu nhiều nhất ( dãy số hạng liên tiếp được gọi là đan dấu nếu tích hai số liên tiếp âm ).
  20. Số lượng các phần tử không tăng nhiều nhất.
  21. Số lượng các phần tử giảm nhiều nhất.
  22. Số lượng các phần tử tăng nhiều nhất.
  23. Đoạn con dương liên tiếp có nhiều các số hạng nhất (nếu có nhiều đoạn con thoả mãn thì đọc ra màn hình : số đoạn con thoả mãn và các đoạn con đó )
  24. Đoạn con gồm nhiều nhất các số hạng liên tiếp của dãy lập thành một cấp số cộng. nhất (nếu có nhiều đoạn con thoả mãn thì đọc ra màn hình : số đoạn con thoả mãn và các đoạn con đó )
  25. Đoạn con có các số hạng dương liên tiếp có tổng lớn nhất. nhất (nếu có nhiều đoạn con thoả mãn thì đọc ra màn hình : số đoạn con thoả mãn và các đoạn con đó )
  26. Đoạn con có các số hạng âm liên tiếp nhiều nhất. nhất (nếu có nhiều đoạn con thoả mãn thì đọc ra màn hình : số đoạn con thoả mãn và các đoạn con đó )
  27. Đoạn con có số hạng âm liên tiếp có tổng lớn nhất. nhất (nếu có nhiều đoạn con thoả mãn thì đọc ra màn hình : số đoạn con thoả mãn và các đoạn con đó )
  28. Đoạn con có các số hạng liên tiếp đan dấu nhiều nhất nhất (nếu có nhiều đoạn con thoả mãn thì đọc ra màn hình : số đoạn con thoả mãn và các đoạn con đó )
  29. Đoạn con có các phần tử không tăng nhiều nhất. nhất (nếu có nhiều đoạn con thoả mãn thì đọc ra màn hình : số đoạn con thoả mãn và các đoạn con đó )
  30. Đoạn con có các phần tử giảm nhiều nhất. nhất (nếu có nhiều đoạn con thoả mãn thì đọc ra màn hình : số đoạn con thoả mãn và các đoạn con đó )
  31. Số lượng các phần tử bằng giá trị X ( nguyên ) cho trước.
  32. Số lượng các phần tử khác giá trị X ( nguyên ) cho trước.
  33. Số lượng các phần tử >= giá trị X ( nguyên ) cho trước.
  34. Chuyển các số hạng dương của mảng lên đầu mảng và in mảng ra màn hình.
  35. Tìm số phần tử là dương và là số nguyên tố của mảng và vị trí của nó trong mảng
  36. Sắp xếp tăng dần mảng đã cho (a[i]<=a[i+1] )
  37. Sắp xếp giảm dần mảng đã cho (a[i]>=a[i+1] )
  38. Chèn một số nguyên m (m nhập vào từ bàn phím ) vào cuối dãy
  39. Chèn một số nguyên m (m nhập vào từ bàn phím ) vào đầu dãy
  40. Chèn một số nguyên m ( m nhập vào từ bàn phím ) vào vị trí k .
  41. Chèn một số nguyên m ( m nhập vào từ bàn phím ) vào vị trí thích hợp .
1
31 tháng 7 2019

Bạn có thể tách ra từng bài để được giải đáp nhé. Bạn hỏi từng câu và vào mục câu hỏi tương tự sẽ có.

23 tháng 2 2021

Program FNG;

Uses crt;Var A: array[1..1000] of longint;    n,i,s,da,sa: longint;Begin        Clrscr;        Write('Nhap n: '); Readln(n);        s:=0; da:=0; sa:=0;        For i:=1 to n do        Begin                Write('A[',i,'] = ');                Readln(A[i]);                s:=s+A[i];                If A[i]<0 then                Begin                        inc(da);                        sa:=sa+A[i];                End;        End;        Writeln('S = ',s);        Writeln('Dem am = ',da)        Write('Tong am = ',sa);        ReadlnEnd.

Nhập mảng xong rồi làm gì nữa bạn?

b: #include <bits/stdc++.h>

using namespace std;

long long b[1000],i,n;

int main()

{

cin>>n;

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

cin>>b[i];

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

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

cout<<b[i]<<" ";

return 0;

}

23 tháng 12 2020

uses crt;

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

i,n,tc,tl,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

tc:=0;

tl:=0;

for i:=1 to n do 

  begin

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

else tl:=tl+a[i];

end;

writeln('Tong cac so chan la: ',tc);

writeln('Tong cac so le la: ',tl);

t:=0;

for i:=1 to n do  

t:=t+a[i];

writeln('Tong cua day so la: ',t);

readln;

end. 

14 tháng 5 2022

code c++ di ban

 

10 tháng 5 2023

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+2*i+1;

write('tong la: ',s);

readln

end.

10 tháng 5 2023

Câu 2

Bài 5:

Var b:array:[1..1000] of integer;

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(b[i]);

End;

Write('Cac phan tu am la: ');

For i:=1 to n dko

if b[i]<0 then write(b[i]:8);

writeln;

max:=b[1];

For i:=2 to n do

If b[i] > max then max:=b[i];

write('So lon nhat la ',max);

Readln

End.

uses crt;
var n,i,t,dem,t1,dem1,t2:longint;
a:array[1..100]of longint;
tbc,tbca,tbcd:real;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------cau-1-----------------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('tong cac phan tu cua day la: ',t);
{-------------------cau-2-------------------------}
dem:=0;
t1:=0;
for i:=1 to n do
if a[i]>0 then
begin
dem:=dem+1;
t1:=t1+a[i];
end;
writeln('so luong cac so hang duong la: ',dem);
writeln('tong cua cac so hang duong la: ',t1);
{-------------------cau-3-------------------------}
dem1:=0;
t2:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem1);
t2:=t2+a[i];
end;
writeln('so luong cac so hang am la: ',dem1);
writeln('tong cua cac so hang am la: ',t2);
{-------------------cau-4-----------------------}
tbc:=t/n;
writeln('trung binh cong cua day so la: ',tbc:4:2);
tbcd:=t1/dem;
writeln('trung binh cong cua cac phan tu duong la: ',tbcd:4:2);
tbca:=t2/dem1;
writeln('trung binh cong cua cac phan tu am la: ',tbca:4:2);
readln;
end.

18 tháng 3 2020

program an_danh;
uses crt;
var n,i,nd,na:integer;
tbc,tbcd,tbca:real;
tong,tongd,tonga:longint;
a:array [1..10] of integer;
begin
clrscr;
write('So phan tu cua day so: ');readln(n);
for i:= 1 to n do
begin
write('Phan tu thu ',i,': ');
readln(a[i]);
end;
tong:= 0;
for i:= 1 to n do tong:= tong + a[i];
tbc:= tong / n;
writeln('Tong cac phan tu la: ',tong);
nd:= 0; tongd:= 0;
for i:= 1 to n do
if a[i] mod 2 = 0 then
begin
nd:= nd + 1;
tongd:= tongd + a[i];
end;
tbcd:= tongd / nd;
writeln('So cac phan tu duong trong day: ',nd);
writeln('Tong cac phan tu duong trong day: ',tongd);
na:= 0; tonga:= 0;
for i:= 1 to n do
if a[i] mod 2 <> 0 then
begin
na:= na + 1;
tonga:= tonga + a[i];
end;
tbca:= tonga / na;
writeln('So cac phan tu am trong day: ',na);
writeln('Tong cac phan tu am trong day: ',tonga);
writeln('Trung binh cong cua ca day: ',tbc:0:2);
writeln('Trung binh cong cac phan tu duong: ',tbcd:0:2);
write('Trung binh cong cac phan tu am: ',tbca:0:2);
readln
end.

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.

uses crt;
var i,n,tcd,t,t1,dem,dem1,dem2,dem3,dem4,dem5:longint;
a,b,c:array[1..100]of longint;
min,max:int64;
tbc,tbcd,tbca:real;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------cau-1----------------------}
tcd:=0;
for i:=1 to n do
tcd:=tcd+a[i];
writeln('tong cac phan tu trong day la: ',tcd);
{-------------------------cau-2----------------------}
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('so luong cac so hang duong la: ',dem);
writeln('tong cac so hang duong la: ',t);
{-----------------------cau-3-----------------------}
dem1:=0;
t1:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem1);
t1:=t1+a[i];
end;
writeln('so luong cac so hang am la: ',dem1);
writeln('tong cac so hang am la: ',t1);
{---------------------cau-4---------------------------}
tbc:=tcd/n;
tbcd:=t/dem;
tbca:=t1/dem1;
writeln('trung binh cong cua ca day la: ',tbc:4:2);
writeln('trung binh cong cua cac so duong la: ',tbcd:4:2);
writeln('trung binh cong cua cac so am la: ',tbca:4:2);
{--------------------cau-5--------------------------------}
max:=0;
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('so lon nhat cua day la: ',max);
writeln('chi so cua no la: ');
dem2:=0;
for i:=1 to n do
if max=a[i] then
begin
inc(dem2);
b[dem2]:=i;
end;
for i:=1 to dem2 do
write(b[i]:4);
{---------------------cau-6-----------------------------}
writeln;
min:=maxint;
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('so nho nhat cua day la: ',min);
writeln('chi so cua no la: ');
dem3:=0;
for i:=1 to n do
if min=a[i] then
begin
inc(dem3);
c[dem3]:=i;
end;
for i:=1 to dem3 do
write(c[i]:4);
{-------------------------cau-7------------------------}
writeln;
dem4:=0;
dem5:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem4);
if a[i] mod 2=1 then inc(dem5);
end;
writeln('so luong so chan cua day la: ',dem4);
writeln('so luong so le cua day la: ',dem5);
readln;
end.