viết chương trình nhập dãy số n in ra các số chẵn trong dãy vừa nhập(sử dụng biến mảng)
Những câu hỏi liên quan
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ậpb)Tính tổng các số trong dãyc)Tính tổng các sô chẵn trong dãyd)Tính trung bình cộng các số chẵn trong dãye)Tìm ra số lớn nhất trong dãy và in ra vị trí của số lớn nhấtf)Tìm ra số nhỏ nhất trong dãy và in ra vị trí của số nhỏ nhấtg) Tính trung bình cộng các số trong dãy
Đọc tiế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 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.
Đúng 1
Bình luận (0)
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.
Đúng 1
Bình luận (2)
sử dụng biến mảng viết chương trình nhập dãy số N số nguyên từ bàn phím, sau đó in ra màng hình có bao nhiêu số lẻ, số chẵn trong dãy số đó.
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]):
dem:=0;
for i:=1 to n do if a[i] mod 2=0 then inc(dem);
writeln('so so chan la: ',dem);
writeln('so so le la: ',n-dem);
readln;
end.
Đúng 0
Bình luận (0)
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 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.
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.
Đúng 2
Bình luận (0)
sử dụng biến mảng viết chương trình nhập vào 1 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ố đó
Var a:array[1..1000] of integer;
s:longint;
i,n:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(a[i]);
If a[i] > 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln
End.
Đúng 2
Bình luận (0)
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 có bao nhiêu giá trị là số chẵn.
uses crt;
var a:array[1..1000000] of longint;
n,i,d:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i] mod 2=0 then inc(d);
end;
write('Co ',d,' gia tri la so chan');
readln;
end.
Đúng 0
Bình luận (0)