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.

a: 

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int n,i;

int main()

{

cin>>n;

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

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

return 0;

}

b: 

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,t;

int main()

{

cin>>n;

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

t=0;

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

cout<<t;

return 0;

}

30 tháng 4 2022

bạn có thể nào làm cho mình phần b làm theo kiểu lớp 8 đc không chứ nhìn như này mik ko hiểu

 

9 tháng 5 2023

Phần tử trong mảng nha mn ghi nhầm

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

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

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

cout<<endl;

t=0;

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

cout<<t;

return 0;

}

Câu 1:

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

Câu 2: 

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

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

end;

for i:=1 to 10 do 

 write(a[i]:4);

readln;

end.

Câu 3: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

repeat

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

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

for i:=1 to n do 

begin

repeat

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

until a[i]<=100;

end;

writeln('Mang da nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

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

writeln('Tong cac phan tu chia het cho 3 la: ',t);

writeln('Cac so chan o vi tri le trong day la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);

readln;

end.

15 tháng 5 2023

'''python

a. DTB = []

siso = int(input("Nhập số lượng học sinh trong lớp: "))

b. for i in range(siso):

diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))

DTB.append(diem)

c. tong=sum(DTB)

d. print(f"Tổng điểm của lớp là: {tong}")'''

Bài 1: Hãy viết các câu lệnh khai báo theo yêu cầu sau: A. Khai báo mảng A gồm 100 phần tử thuộc kiểu dữ liệu số thực. B. Khai báo mảng B gồm 20 phần tử thuộc kiểu dữ liệu số nguyên. C. Phần tử thứ 7 của mảng A được gán giá trị là 8. D. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên. Bài 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của...
Đọc tiếp

Bài 1: Hãy viết các câu lệnh khai báo theo yêu cầu sau:

A. Khai báo mảng A gồm 100 phần tử thuộc kiểu dữ liệu số thực.

B. Khai báo mảng B gồm 20 phần tử thuộc kiểu dữ liệu số nguyên.

C. Phần tử thứ 7 của mảng A được gán giá trị là 8.

D. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.

Bài 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím.

Bài 3: Viết chương trình nhập điểm kiểm tra học kỳ môn Tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím( sử dụng biến mảng).

Bài 4: Viết chương trình:

a) Nhập vào mảng A có n phần tử.

b) In mảng A đã nhập ra màn hình.

c) In ra màn hình các số dương.

d) Tính tổng và giá trị trung bình của các số dương trong mảng.

Bài 5: Viết chương trình:

a) Nhập vào mảng A có n phần tử.

b) In mảng A đã nhập ra màn hình.

c) In ra các số chẵn của mảng.

d) In ra các số lẽ của mảng.

2
30 tháng 3 2019

Program ct;

Var i,n,so le, so chan:integer;

B:Array[1..n] of integer;

Begin

Write('n=');Readln(n);

For i:=1 to n do begin Write('B[',i,']=');

Readln(B[i]);

End;

For i:=1 to n do Begin

if B[i] mod 2 <>0 then writeln('so le , ' );

If B[i] mod 2=0 then writeln('so chan ,' );

End;

Readln

End.

11 tháng 4 2019

Lời giải:

Bài 1 :

a) var A : array[1..100] of real ;

b) var B : array[1..20] of integer ;

c) A[7] := 8 ;

Bài 2 :

program hotrinhoc ;

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

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

readln

end.

Bài 3 :

program hotrinhoc ;

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

i,n: integer ;

begin

write('Co tat ca so ban hoc sinh la'); readln(n);

write('Nhap diem mon tin cua cac ban');

for i:= 1 to n do

begin

write('Ban thu ',i,':'); readln(a[i]);

end;

readln

end.

Bài 4 : a,b giống bài 3

c)

program hotrinhoc ;

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

i,n,tong : integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

tong:=0;

for i:= 1 to n do

if a[i] > 0 then tong:=tong+1;

write('Ket qua la',tong);

readln

end.

Bài 5: a và b tương tự bài 3

c+d )

program hotrinhoc ;

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

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

for i:= 1 to n do

c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);

d) if i mod 2= 1 then write('Cac so le cua mang la:',i);

readln

end.

uses crt;

var b:array[1..25]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('B[',i,']='); readln(b[i]);

end;

readln;

end.

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

i,n:integer;

begin

clrscr;

readln(n);

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

readln;

end.