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.
viết chương trình nhập vào một dãy số nguyên . số phân tử của dãy được nhập từ bàn phím a, in ra dãy số vừa nhập ra màn hình b, tính tổng các phân tử dương có trong dãy số
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]);
for i:=1 to n do write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i]>0 then t:=t+a[i];
writeln(t);
readln;
end.
viết chương trình nhập từ bàn phím số nguyên dương n và dãy số nguyên a1 a2 đến an đưa dãy vừa nhập ra màn hình tính tổng các số chia hết cho 7 đưa kết quả ra màn hình
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;
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 7=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 7 la: ',t);
readln;
end.
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình.
uses crt;
var a:array[1..100]of integer;
i,n,min,tam,j:integer;
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);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do write(a[i]:4);
readln;
end.
em hãy viết chương trình nhập vào n số nguyên (0<N<688886)a1,a2,a3 ;...an(-9 tỷ tỷ<=ai<=+9 tỷ tỷ) vào từ bàn phím. in ra màn hình dãy số vừa nhập , số lớn nhất có trong dãy , vị trí của các số lớn nhất có trong dãy, số lượng phần tử lớn nhất có trong dãy mỗi kết quả trên 1 dòng .ví dụ:nhập vào n = 5;các phần tử a1= 500; a2=125 ; a3=300;a4=25;a5=500;kết quả trên màn hình là : 100 125 300 25 500 500 1 5 2
Giup mình với
uses crt;
var a:array[1..100]of integer;
i,n,max,dem: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
write(a[i]:4);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
write('Vi tri cua so lon nhat la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
dem:=0;
for i:=1 to n do
if max=a[i] then inc(dem);
writeln('So luong phan tu lon nhat trong day la: ',dem);
readln;
end.
uses crt;
var a:array[1..100000000] of int64;
n,i,d,max:longint;
begin
clrscr;
repeat
write('Nhap so luong phan tu: '); readln(n);
if (n<=0) and (n>688886) then writeln('NHAP LAI!');
until (n>0) and (n<=688886);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' ');
max:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
writeln;
writeln('So lon nhat: ',max);
write('Vi tri cua cac so lon nhat: ');
for i:=1 to n do if a[i]=max then begin write(i,' '); inc(d) end;
writeln;
writeln('So luong so lon nhat: ',d);
readln;
end.
Viêy thuật toán và chương trình nhập từ bàn phím dãy A gồm n phần tử a1, a2, a3, ...an có kiểu số nguyên. Tính và in ra màn hình tổng S các phần tử của dãy A
huhu ae chỉ mn với chỉ hết 1234 nha mai mn thi rồi huhu
tin 8 Viết chương trình nhập n số nguyên từ bàn phím in dãy số vừa nhập ra màn hình
1 in dãy số vừa nhập ra màn hình
2 tính tổng của các số dương trong dãy
3 tính tổng của các số lẻ
4 tính tổng của các số chẵn
Bạn Akai làm thiếu rồi, mình xin bổ sung một chút cho nó hoàn thiện bài nhé:
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,t3: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
write(a[i]:4);
writeln;
t1:=0;
t2:=0;
t3:=0;
for i:=1 to n do
begin
if a[i]>0 then t1:=t1+a[i];
if a[i] mod 2<>0 then t2:=t2+a[i];
if a[i] mod 2=0 then t3:=t3+a[i];
end;
writeln('Tong cac so duong la: ',t1);
writeln('Tong cac so le la: ',t2);
writeln('Tong cac so chan la: ',t3);
readln;
end.
Cho dãy N số nguyên ( với n nhập vào từ bàn phím) . Viết chương trình thực hiện các yêu cầu sau. a. Nhập vào dãy số n và giá trị từng phần của dãy. b. Xuất giá trị của dãy vừa nhập. c. Tính tổng các phần tử của dãy. d. In ra màn hình giá trị Max, Min của dãy. e. Tính tổng các phần tử dương của dãy. f. Tính tổng các phần tử âm của dãy. g. Tính tổng các phần tử chẵn của dãy. h. Tính tổng các phần tử lẻ của dãy. i. Sắp xếp các phần của dãy theo thứ tự giảm dần. k. Sắp xếp các phần của dãy theo thứ tự tăng dần.
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
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.
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.
giúp em với ạ!
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy số A1, A2,...An. đưa ra màn hình tổng các số nguyên chẵn của dãy số.
Program HOC24;
var i,n: byte;
A: array[1..100] of integer;
t: longint;
begin
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];
write('Tong cac so chan la: ',t);
readln
end.
