viết chương trình sử dụng biến mảng để nhập dãy n số và in ra tổng các số chẵn trong dãy số vừa nhập.
Viết chương trình sử dụng biến mảng nhập n số nguyên. In ra màn hình dãy số vừa nhập:
a)Đếm số chẵn trong dãy số vừa nhập
b)Tính tổng các số trong dãy
c)Tính tổng các sô chẵn trong dãy
d)Tính trung bình cộng các số chẵn trong dãy
e)Tìm ra số lớn nhất trong dãy và in ra vị trí của số lớn nhất
f)Tìm ra số nhỏ nhất trong dãy và in ra vị trí của số nhỏ nhất
g) Tính trung bình cộng các số trong dãy
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. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình tổng các giá trị là số chẵ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. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình tổng các giá trị là số chẵ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. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình hiệu các số chẵn trong dãy số nguyên.
uses crt;
var a:array[1..100]of integer;
i,n,h:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
h:=0;
for i:=1 to n do
if a[i] mod 2=0 then h:=h-a[i];
writeln(h);
readln;
end.
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 in ra màn hình phần tử nhỏ nhất trong dãy số nguyên vừa nhập
var a:array[1..1000] of integer;
i,n,min:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if min > a[i] then min:=a[i];
write('So nho nhat la ',min);
readln
end.
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 và in ra màn hình số lớn nhất của dãy số vừa nhập từ bàn phím.
Viết chương trình pascal sử dụng biến mảng để nhập vào một dãy số và in ra tổng của dãy số đó
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('Tong cua day so la: ',t);
readln;
end.
7. 2. Viết chương trình sử dụng biến mảng để nhập N số nguyên từ bàn phim và độ dài của dãy số cũng được nhập từ bản phim. Thông báo ra màn hình tổng của dãy sổ vừa nhập.
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.
Sử dụng biến mảng viết chương trình nhập vào một dãy số gồm N số nguyên tử bàn phím in ra màn hình tổng các số dương trong dãy số đó.
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]>0 then t:=t+a[i];
writeln(t);
readln;
end.