viết chương trình in ra tổng các số chẵn và tổng các số lẻ ( trong đó số lượng phần tử và giá trị của dãy số được nhập vào từ bàn phím )
Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.
Bài 5:
Var a:array:[1..1000] of integer;
i,n,max:integer;
sc, sl:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');rreadlna[i]);
If a[i] mod 2 = 0 then sc:=sc+b[i];
If a[i] mod 2 <> 0 then sl:=sl+a[i];
End;
max:=a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
Writeln('Tong cac so chan la ',sc);
Writeln('Tong cac so le la ',sl);
write('So lon nhat la ',max);
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. Độ 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 tổng các giá trị là số lẻ.
uses crt;
var a:array[1..1000000] of longint;
n,i,s: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=1 then inc(s,a[i]);
end;
write('Tong cac so le: ',s);
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. Độ 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ố lẻ
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím, đếm và in ra trong dãy số có bao nhiêu số chẵn, bao nhiêu số lẻ, tính tổng các số lẻ trong mảng, tính giá trị trung bình của các số chẵn.:)) mong mọi người giúp mik
Viết chương trình nhập vào một dãy số độ dài dãy số được nhập vào từ bàn phím sau đó in ra giá trị của các phần tử trong dãy đó
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
SỬ DỤNG PYTHON MỚI NHẤT
Viết chương trình nhập vào từ bàn phím một dãy N số nguyên . Hãy tính tổng các số chẵn có trong dãy biết các phần tử của dãy cũng được nhập từ bàn phím, in mảng và kết quả tính toán được ra màn hình.
a) Soạn thảo chương trình bằng NNLT python;
b) Biên dịch chương trình để kiểm tra lỗi;
Viết 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ìm và in ra màn hình các phần tử có giá trị lẻ, các phần tử có giá trị chẵn trong dãy A