uses crt;
var h:array[1..100]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('H[',i,']='); readln(h[i]);
end;
t:=0;
for i:=1 to n do
if h[i] mod 2=0 then t:=t+h[i];
writeln('Tong cac so chia het cho 2 la: ',t);
readln;
end.
Hãy nhập mảng A gồm n phần tử :
a. tính tổng các phần tử của mảng h
b. đưa ra màn hình những phần tử chia hết cho 2 và 6
Mọi người giúp em giải 2 bài này được không ạ.
1. Viết chương trình nhập một mảng số nguyên 1 chiều gồm n nguyên tử. Tính tổng các phân tử chia hết cho 2 trong mảng. In kết quả ra màn hình.( biết n là số nguyên và nhập từ bàn phím)
2. Nhập một xâu từ bàn phím xóa ký tự thứ 2 và thứ 3 của xâu ghi kết quả vào tệp BT.TXT.
mọi người ơi giúp mình với mình đang cần gấp ạ
Viết CT nhập mảng nguyên gồm N phần tử rồi ghi vào tệp KQ.txt ( lưu trong ổ đĩa D )
trên free Pascal IDE
cho dãy số nguyên gồm N phần tử,tính tổng các số dương và âm.So sánh giá trị tuyệt đối của tổng số dương và âm ghi kết quả vào tệp Mang.TXT
Cho tệp T.TXT gồm n số nguyên ( mỗi số nằm trên 1 dòng). Viết chương trình đọc các số từ tệp trên rồi sử dụng mảng để tính Min, Max , trung bình cộng của các số đó rồi in ra màn hình.
viết chương trình tạo tệp baitap.txt trong dó dòng đầu tiên là n số lượng các số nguyên, dòng thứ hai là n số nguyên cách nhau 2 kí tự trắng được nhập từ bàn phím
