Nhập dãy số gồm n số ạng Tính tổng dãy số đó
Những câu hỏi liên quan
1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
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 do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
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 do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Bài 3:
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
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số gồm n số nguyên in ra dãy số vừa nhập tính tổng các phần tử chẵn trong dãy số tìm số lớn nhất trong dãy số tính tổng các phần tử lẻ trong dãy số tìm số nhỏ nhất trong dãy số
Uses crt;
var max,min,n,i,m,n: longint;
a: array[1..100] of longint
begin clrscr;
for i:=1 to n do begin
if(a[i] mod 2=0) then m:=m+a[i];
if(a[i] mod 2<>0) then n:=n+a[i];
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if(max<a[i]) then max:=a[i];
if(min>a[i]) then min:=a[i];
end;
Writeln('Tong cac phan tu chan: ',m);
Writeln('Tong cac phan tu le: ',n);
Writeln('Phan tu co gia tri lon nhat: ',max);
Writeln('Phan tu co gia tri nho nhat: ',min);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập một dãy số gồm N(N>=200)sau đó biểu thị tổng S của các số đầu tien trong dãy cho tới khi S>2000
viết chương trình nhập một dãy số gồm N(N>=1000)sau đó biểu thị tổng S của các số đầu tien trong dãy cho tới khi S>10000
nhập 1 dãy số nguyên gồm n số từ bàn phím. Tính tổng các số nguyên tố trong dãy đã nhập
Program bai_tap;
Uses crt;
Var i, n, S: Integer;
begin
clrscr;
Write('Nhap n='); read(n);
For i:=1 to n do S=s+i;
Write('tong la',',);
End.
Đúng 0
Bình luận (0)
Em hãy viết chương trình nhập số nguyên n từ bàn phím sau đó nhập dãy số gồm n phần tử rồi thực hiện các yêu cầu sau:- hiển thị dãy số vừa nhập ra màn hình theo hàng ngang, mỗi số cách nhau 4 dấu cách - tính tổng số cách nhau 4 dấu cách - tính tổng của dãy số- tính số lớn nhất trong dãy số vừa nhập- tìm số nhỏ nhất trong dãy số vừa nhập- in ra màn hình các số lẻ của dãy số- tính trung bình cộng của dãy sốgiúp tui vs
Đọc tiếp
Em hãy viết chương trình nhập số nguyên n từ bàn phím sau đó nhập dãy số gồm n phần tử rồi thực hiện các yêu cầu sau:
- hiển thị dãy số vừa nhập ra màn hình theo hàng ngang, mỗi số cách nhau 4 dấu cách
- tính tổng số cách nhau 4 dấu cách
- tính tổng của dãy số
- tính số lớn nhất trong dãy số vừa nhập
- tìm số nhỏ nhất trong dãy số vừa nhập
- in ra màn hình các số lẻ của dãy số
- tính trung bình cộng của dãy số
giúp tui vs
Mọi người giúp mik vs nhé, mik cần gấp, sắp thi rồi. Mik cảm ơn trc ạ: C1: nhập vào 1 mảng gồm n phần tử, tính giá trị trung bình của dãy số đó. C2: Viết chương trình nhập dãy n số và in ra tổng các số chẵn, tổng các số lẻ trong dãy cần nhập. C3: viết chương trình nhập dãy n số và cho biết số nhỏ nhất trong các số vừa nhập là số thư mấy?
Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.
1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.
2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.
3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.
Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.
Chúc bạn học tốt 
.
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var n,i,t:integer;
a:array[1..100]of 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/n:4:2);
readln;
end.
Đúng 0
Bình luận (1)
Câu 1:
Program Tin_hoc;
Uses crt;
Var i,n,tong:integer;
tb:real;
a:array[1..1000] of integer;
Begin
clrscr;
Write('Nhap n: ');readln(n);
tong:=0;
Writeln('Nhap ',n,' phan tu cua day:');
for i:= 1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
tong:=tong+a[i];
end;
tb:=tong/n;
Writeln('Gia tri trung binh cua day la: ',tb:0:4);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
viết chương trình nhập vào 1 dãy gồm n số(n được nhập vào từ bàn phím) tính tổng các số chẵn có trong dãy số vừa nhập
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
write('Tong cac so chan la: ',t);
readln
end.
Đúng 1
Bình luận (0)
VCT nhập số nguyên dương N (N nhỏ hơn hoặc bằng 100) sau đó nhập dãy số gồm N số nguyên
a) đưa ra màn hình các số chẵn
b) tính tổng các số chẵn
c) Đếm xem trong dãy có bao nhiêu số chẵn .plee~~~
Xem chi tiết
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chan la: ');
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]:4);
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chan la: ',t);
writeln('Trong day co ',dem,' so chan');
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình
a;nhập một dãy số gồm 6 số nguyên
b;tính tổng 4 số đầu tiên của dãy số đó
uses crt;
var a:array[1..6]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to 4 do
t:=t+a[i];
writeln('Tong cua 4 so dau tien la: ',t);
readln;
end.
Đúng 1
Bình luận (0)