Var z:array[1..1000] of longint;
n, i,A:longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do begin if z[i] mod 2 = 0 then begin A:= z[i];
End;
Writeln('Cac so chan la ',A);
End;
End.
Bạn kiểm tra lại nhé.
Viết chương trình nhập vào 1 dãy số gồm n số nguyên dương + In dãy số ra màn hình + Cho biết dãy có bao nhiêu số chẵn Giúp mình nhanh vs m.n mai mình thi r
Viết chương trình nhập vào số nguyên n (n<103) và dãy n số nguyên {a1, a2, ..., a3}
Yêu cầu:
- In lên mảng vừa nhập lên màn hình trên cùng 1 hàng
- In lên màn hình các phần tử có giá trị chẵn
VD: n=5 {3; 5; 8; 1; 60}
Kết quả:
3 5 8 1 60
C++ nhé, giúp e với ạ;-;
Viết chương trình nhập một mảng số nguyên gồm n phần tử đưa mảng vừa nhập ra màn hình tính tổng bình phương của các số âm trong một mảng đưa kết quả ra màn hình.
Viết chương trình nhập một dãy số nguyên gồm n phần tử từ bàn phím đưa rãi vừa nhập ra màn hình tìm giá trị nhỏ nhất đưa kết quả ra màn hình.
viết chương trình nhập vào một dãy số dếm xem có bao nhiêu số chẵn, số lẻ tronh dãy số vừa nhập
Em hãy viết chương trình pascal nhập một mảng số nguyên gồm n phần tử với n được nhập từ bàn phím in rãi vừa nhập ra màn hình và tính tổng các phần tử trong mảng đưa kết quả ra màn hình.
các bn giúp mik tin với
NHẬP VÀO DÃY SỐ GỒM n PHẦN TỬ, n NHẬP TỪ BÀN PHÍM
a) tính tổng các số am trong dãy
b) tính tổng các số chia hết cho 2 trong dãy
c) tính tổng các số dương và chia hết cho 3 trong dãy
HD: dựa vào chương trình bài 2
b) nêu điều kiện để 1 số chia hết cho 2
c) khi có 2 điều kiện em cần dùng thêm hàm nào?
MONG CÁC BN TRẢ LỜI SỚM GIÚP MIK
Viết chương trình nhập vào một dãy số nguyên gồm n phần tử từ bàn phím đưa rãi vừa nhập ra màn hình Tìm giá trị lớn nhất trong dãy đưa kết quả tìm được ra màn hình.
viết chương trình nhập vào mảng a có n phần tử là các số nguyên dương.Tìm các số xuất hiện trong mảng a và số có số lần xuất hiện nhiều nhất
