Câu 1:Viết chương trình nhập vào dãy số nguyên gồm k phần tử(với k được nhập từ bàn phím, số phần tử tối đa trong mảng là 100). Tính tổng của các phần tử trong dãy số vừa nhập. Tính chiều dài (với chi...

TY

Thị Yến Nhi Trịnh

5 tháng 4 2023

Câu 1:Viết chương trình nhập vào dãy số nguyên gồm k phần tử(với k được nhập từ bàn phím, số phần tử tối đa trong mảng là 100). Tính tổng của các phần tử trong dãy số vừa nhập. Tính chiều dài (với chiều dài bằng tổng nhân 40). in tổng và chiều dài ra màng hình. Câu 2: viết chương trình nhập vào 1 dãy số nguyên gồm Những phần tử với N được nhập từ bàn phím. in ra màng hình giá...

Đọc tiếp

#Tin học lớp 8

1

TY

Thị Yến Nhi Trịnh

5 tháng 4 2023

E cần câu trl gấp ạk

Đúng(0)

V

Vochehoang

26 tháng 4 2021

C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn ( n được nhập tử bàn phím )

C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó

#Tin học lớp 8

2

NL

Nguyễn Lê Phước Thịnh

26 tháng 4 2021

Câu 1:

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

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

writeln(t:4:2);

readln;

end.

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

26 tháng 4 2021

Câu 2:

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=1;

for i:=1 to n do

t:=t*a[i];

writeln(t:4:2);

readln;

end.

Đúng(0)

AD

Anh Đức 8/8

19 tháng 4 2022

Viết chương trình nhập vào 1 dãy số gồm n số nguyên (n được nhập từ bàn phím). tính tổng các phần tử lớn hơn 0 trong dãy vừa nhập

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

20 tháng 4 2022

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do

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

writeln(t);

readln;

end.

Đúng(1)

DN

Đỗ Nguyễn Thùy Lâm

4 tháng 5 2023

a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhậpb) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

5 tháng 5 2023

a) var a:array[1..1000] of integer;

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

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

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b)

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

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

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

Đúng(0)

YD

Yeu DUong nhat

17 tháng 5 2021

Viết chương trình 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ố nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<=100)? Tính tổng và đếm các số dương có trong dãy số? In kết quả ra màn hình

#Tin học lớp 8

2

ML

Minh Lệ

17 tháng 5 2021

Program HOC24;

var n,d,i: integer;

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

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

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

end;

d:=0; t:=0;

for i:=1 to n do

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

Đúng(3)

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var b:array[1..100] of longint;
n,i,d,s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(b[i]);
if b[i]>0 then begin
inc(d);
inc(s,b[i]);
end;
end;
writeln('Tong cac so duong: ',s);
writeln('Co ',d,' so duong');
readln;
end.

Đúng(0)

DC

Đào Cẩm

15 tháng 4 2021

Viết chương trình 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; tính tổng các phần tử

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

15 tháng 4 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln(t);

readln;

end.

Đúng(0)

DC

Đào Cẩm

24 tháng 4 2021

thanks nhiều nhaaa

Đúng(0)

NT

Ngọc Ty

24 tháng 4 2023

Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

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.

Đúng(1)

PN

phung nguyen

8 tháng 5 2023

Viết chương trình 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ố.a, In ra màn hình các số vừa nhập ( độ dài của dãy cũng được nhập từ bàn phím)b, Tính tổng các phần tử của dãy sốc, Tính giá trị nhỏ nhất của dãy sốd, Tìm giá trị lớn nhất của dãy...

Đọc tiếp

#Tin học lớp 9

2

KV

Kiều Vũ Linh

9 tháng 5 2023

Var a:array:[1..1000] of real;

i,n,max,min,s:real;

Begin

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

For i:=1 to n do

Begin

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

End;

max:=a[1];

min:=a[1];

For i:=2 to n do

Begin

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

If a[i] < min then min:=a[i];

End;

Write('Cac so vua nhap la ');

for i:=1 to n do write(a[i]:10:2):

Writeln;

Writeln('Tong la ',s:10:2);

Writeln('So nho nhat la ',min:10:2);

Write('So lon nhat la ',max:10:2);

Readln

End.

Đúng(1)

PC

Phùng Công Anh

27 tháng 5 2023

var
Mang: array[1..100] of Integer;
N, i, Tong, Min, Max: Integer;

begin
// Yêu cầu nhập độ dài của dãy số từ bàn phím
Write('Nhap do dai cua day so: ');
ReadLn(N);

// Yêu cầu nhập các phần tử của dãy từ bàn phím
for i := 1 to N do
begin
Write('Nhap phan tu thu ', i, ': ');
ReadLn(Mang[i]);
end;

// In ra màn hình các số vừa nhập
Write('Cac so vua nhap: ');
for i := 1 to N do
begin
Write(Mang[i], ' ');
end;
WriteLn;

// Tính tổng các phần tử của dãy số
Tong := 0;
for i := 1 to N do
begin
Tong := Tong + Mang[i];
end;
WriteLn('Tong cac phan tu cua day so la: ', Tong);

// Tìm giá trị nhỏ nhất của dãy số
Min := Mang[1];
for i := 2 to N do
begin
if Mang[i] < Min then
Min := Mang[i];
end;
WriteLn('Gia tri nho nhat cua day so la: ', Min);

// Tìm giá trị lớn nhất của dãy số
Max := Mang[1];
for i := 2 to N do
begin
if Mang[i] > Max then
Max := Mang[i];
end;
WriteLn('Gia tri lon nhat cua day so la: ', Max);

ReadLn;
end.

Đúng(0)

VT

Văn Tèo Trần

30 tháng 3 2023

Đề bài: cho dãy số gồm n phần tử. Thực hiện các chương trình sau a) nhập từ bàn phím số phần tử và giá trị từng phần tử b) xuất mảng vừa nhập theo chiều ngang c) tìm giá trị lớn nhất, nhỏ nhất của mảng vừa nhập d) tính tổng các phần tử âm của dãy

#Tin học lớp 8

1

NH

Nguyễn Hoàng Duy

30 tháng 3 2023

program BaiTapMang;

var
n, i, max, min, s: longint;
a: array[1..100] of integer;

begin
// Nhập số phần tử của mảng
write('Nhap so phan tu cua mang: ');
readln(n);

// Nhập giá trị từng phần tử của mảng
for i := 1 to n do
begin
write('Nhap gia tri phan tu thu ', i, ': ');
readln(a[i]);
end;

// Xuất mảng theo chiều ngang
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');

// Tìm giá trị lớn nhất và nhỏ nhất của mảng
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln;
writeln('Gia tri lon nhat cua mang la: ', max);
writeln('Gia tri nho nhat cua mang la: ', min);

// Tính tổng các phần tử âm của mảng
s:= 0;
for i := 1 to n do
begin
if a[i] < 0 then
s:= s + a[i];
end;
writeln('Tong cac phan tu am cua mang la: ', s);

readln;
end.

Đúng(3)

VT

Văn Tèo Trần

5 tháng 4 2023

Có cách nào khác để làm nhanh hơn k

Đúng(0)

HN

Hiểu Nguyễn Đức

19 tháng 5 2022

viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :

-nhập/xuất mảng

-đếm các số hoàn hảo có trong mảng

-tính tổng các phần tử chẵn trong mảng .

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

19 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

int main()

{

cin>>n;

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

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

cout<<endl;

dem=0;

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

{

t=0;

for (j=1; j<=a[i]-1; j++)

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

if (t==a[i]) dem++;

}

cout<<dem<<endl;

t1=0;

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

if (a[i]%2==0) t1+=a[i];

cout<<t1;

return 0;

}

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP