viết ct nhập 1 dãy số gồm n số từ bàn phím, in ra dãy vừa nhập, in ra số lẻ, chẳn trong dãy, tính tổng các số chẳn và lẻ, tính trung bình cộng các số
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 cho phép nhập dãy n số nguyên, em hãy: a/ Cho biết trong dãy số vừa nhập có bao nhiêu số chẳn? b/ Tính trung bình cộng các phần tử chẳn? c/ In các phần tử trong dãy ra màn hình theo chiều dọc? Giúp với ạ
Program HOC24;
var d,i,n: integer;
t: real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
d:=0; t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
d:=d+1;
t:=t+a[i];
end;
t:=t/d;
writeln('Co ',d,' so chan trong mang');
writeln('Trung binh cong cac phan tu chan la: ',t:2:5);
write('Cac phan tu trong day theo chieu doc: ');
for i:=1 to n do writeln(a[i]);
readln
end.
viết chương trình cho phép nhập 1 dãy gồm n số nguyên từ bàn phím và thực hiện : a. tính tổng và điếm các phần tử lẻ trong dãy số?
b. in ra các số nguyên tố có trong dãy?
bài 1 :nhập n số nguyên đến khi nhập 0 thì ngưng. In tổng và trung bình tổng các số đã nhập
bài 2: nhập dãy số nguyên n phần tử. In các số chẳn( hoặc lẻ) trong dãy
bài 1 :nhập n số nguyên đến khi nhập 0 thì ngưng. In tổng và trung bình tổng các số đã nhập
bài 2: nhập dãy số nguyên n phần tử. In các số chẳn( hoặc lẻ) trong dãy
Hãy viết chương trình pascal nhập tên và lớp của học sinh, nhập từ bàn phím dãy số nguyên gồm n phần tử(n nhập từ bàn phím) n<12, tính trung bình cộng của dãy số trên và in ra màn hình, in ra màn hình các số nguyên tố của dãy số trên.
program TinhTBCTimSoNT;
var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;
function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;
begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);
// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;
// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;
// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.
Viết chương trình Nhập dãy số nguyên từ bàn phím. In ra màn hình các số lẻ có trong dãy được nhận. Tính tổng các số có trong dãy và in ra màn hình
Python:
n = input("Nhập dãy số nguyên: ").split()
n = [int(i) for i in n]
so_le = [i for i in n if i % 2 != 0]
tong = sum(n)
print("Các số lẻ trong dãy là: ", so_le)
print("Tổng các số trong dãy là: ", tong)
Pascal:
program tongvasole;
const
MAX_SIZE = 1000;
var
numbers: array[1..MAX_SIZE] of Integer;
count, i: Integer;
total: Integer;
begin
Write('Nhập số lượng phần tử trong dãy: ');
ReadLn(count);
for i := 1 to count do
begin
Write('Nhập phần tử thứ ', i, ': ');
ReadLn(numbers[i]);
end;
Write('Các số lẻ trong dãy là: ');
total := 0;
for i := 1 to count do
begin
if numbers[i] mod 2 <> 0 then
Write(numbers[i], ' ');
total := total + numbers[i];
end;
WriteLn;
WriteLn('Tổng các số trong dãy là: ', total);
end.
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
Câu 1:Nhập vào mảng a gồm n phần tử là số nguyên(n nhập từ bàn phím).
Câu 2: In ra dãy vừa nhập
Câu 3: In ra các số lẻ
Câu 4: Tính tổng các số vừa nhập
Câu 5: Tính trung bình cộng các số vừa nhập
mk cần gấp lắm ạ,làm ơn giúp mk:(((
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;
for i:=1 to n do
if (a[i] mod 2<>0) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
writeln(t/n:4:2);
readln;
end.