Viết chương trình nhập dãy số thực A có N phần tử ( N =10 ;
3T
Những câu hỏi liên quan
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ố đó
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
Bình luận (0)
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
Bình luận (0)
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)
Đề 1 Câu 1 (3.0 điểm): Viết chương trình nhập vào số nguyên dương N và thực hiện tính tổng S=3+5+7+..+(2n+1). Câu 2 (7.0 điểm): a. Viết chương trình nhập vào một dãy số nguyên có n phần tử. b. Đưa ra màn hình các phần tử có giá trị âm ở trong dãy. c. Tìm phần tử lớn nhất có trong dãy
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.
Đúng 1
Bình luận (0)
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.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N100). 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 hình
Đọc tiếp
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 hình
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
Bình luận (0)
Viết chương trình Pascal:
Nhập một dãy số thực A có N phần tử. N là một số tự nhiên được nhập từ bàn phím (N bé hơn hoặc bằng 100). Chương trình sẽ đi tìm giá trị bé nhất của dãy số A và tìm tổng các phần tử có chỉ số là số chẳn. Các kết quả được in lên màn hình có 2 chữ số thập phân.
Giúp mình với ạ, sáng mai nộp bài rồi:((
uses crt;
var a:array[1..100]of real;
i,n:integer;
min,t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min:4:2);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu co chi so chan la: ',t:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Bt1: viết chương trình nhập vào 1 dãy số nguyên có N phần tử(N<=150). Đếm xem có bao nhiêu phần tử là bội của 3 và 5. Tính tổng các phần tử đó.
Bt2: viết chương trình nhập vào 1 dãy số nguyên có N phần tử (N<=150) và một số nguyên K tùy ý. Đếm xem có bao nhiêu phần tử bằng với K. In ra chỉ số các phần tử đó.
Giúp mik 2 bài này trong tối nay vs ạ Tks.
Bài 1:
Program HOC24;
var i,n,d : byte;
t: integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
d:=d+1;
t:=t+a[i];
end;
writeln('Co ',d,' phan tu la boi cua 3 va 5');
write('Tong la: ',t);
readln
end.
Đúng 2
Bình luận (0)
Bài 2:
Program HOC24;
var i,n,k : byte;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Nhap k: '); readln(k);
for i:=1 to n do if a[i]=k then d:=d+1;
writeln('Co ',d,' phan tu bang ',k);
Write('Cac chi so do la: ');
for i:=1 to n do if a[i]=k then write(i,' ');
readln
end.
Đúng 2
Bình luận (1)
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ập
b) 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ố đã nhập
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
Bình luận (0)
Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.
Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy số
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 2
Bình luận (1)
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào một số nguyên gồm n phần tử. Tính tổng của các phần tử của các dãy số đó.
Viết chương trình nhập vào một mảng số nguyên gồm n phần tử . Nhập vào một số nguyên x bất kì
a) Kiểm tra x có trong dãy hay ko hiển thị vị trí của x
b) Đếm xem x xuất hiện bao nhiêu lần
Mọi người giúp vs , cần gấp lắm
Câu 1:
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 1
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
kt:=0;
dem:=0;
for i:=1 to n do
if a[i]=x then
begin
kt:=1;
write(i:4);
inc(dem);
end;
if kt=0 then writeln('Khong co ',x,' trong day');
writeln(x,' xuat hien ',dem,' lan trong day');
readln;
end.
Đúng 1
Bình luận (0)