uses crt;
var d,i,n:integer;
a:array[1..100]of integer;
begin
write('nhap do dai day so:');readln(n);
d:=0;
for i:=1 to n do begin
writeln('nhap so thu ',i,':');readln(a[i]);
if a[i] mod 2=0 then d:=d+1;
end;
writeln('trong day co ',d,' so chan');
readln
end.
nhập vào dãy N số nguyên (N nhập từ bàn phím) tính tổng của các phần tử là số chẵn trong dãy số nguyên
Cho dãy A gồm N số nguyên dương A1,A2,A3...An (N<=500).Viết chương trình thực hiện tính tổng các số lẻ của dãy. Viết hàm kiem_tra (x:integer):boolean;(hàm trả về giá trị bằng TRUE nếu x là số lẻ, hàm trả về giá trị bằng FALSE nếu x là số chẵn
Hãy viết chương trình tính tổng diện tích 5 hình tròn, biết bán kính hình tròn được nhập từ bàn phím. Yêu cầu: Trong chương trình phải xây dựng các chương trình con thực hiện các công việc sau: Nhập bán kính một hình tròn Tính diện tích của một hình tròn
Nhập vào mảng 1 chiều gồm n phân tử là các số nguyên sau đó đếm trong mảng có bao nhiêu số lẻ
Viết chương con trình nhập vào một mảng đêm xem trong mảng có bao nhiêu số nguyên tố
Cho 1 file input.in chứa n dòng các số nguyên. Hãy viết chương trình xét xem mỗi dòng trong file input.in có bao nhiêu số nguyên và tổng giá trị của chúng kết quả ghi vào file output.out
Cho 1 file input.txt chứa các số nguyên. Hãy viết chương trình xét xem file input.txt có bao nhiêu số nguyên và tổng giá trị của chúng ghi kết quả vào file output.txt
Viết chương trình nhập vào bàn phím mảng 1 chiều A gồm N(N<=200) phần tử nguyên .Tính và viết ra màn hình tổng các số âm có trong mảng A (chương trình sử dụng chương trình con kiểm tra số nguyên âm của số m để viết)
Mọi người ơi giúp mik vs
Viết chương trình kiểm tra xem các số có trong tệp SO.EQU số nào là số âm chia hết cho 5 sau đó đưa tất cả các số này vào tệp SOAM5.EQU?