Cho tệp có tên là Info.txt. chứa giá trị của một dãy số nguyên có tối đa là 50 phần tử. Tính: - Tổng của các phần tử là số chẵn trong dãy. - Tìm giá trị lớn nhất của dãy - In ra các phần tử trong dãy mà là bội của k ( k là 1 số nguyên) - In tất cả kết quả ra tệp Outfo.TXT
1 câu trả lời
Người hay giúp bạn khác trả lời bài tập sẽ trở thành học sinh giỏi. Người hay hỏi bài thì không. Còn bạn thì sao?
- Mới nhất
- Chưa trả lời
- Câu hỏi hay
- Câu hỏi của tôi
Han Pham thi ngoc4 phút trước
Viết chương trình
a) nhập từ bàn phím các số nguyên cho mảng a gồm 10 phần tử
b) điểm trong mảng a có bao nhiêu số chia hết cho 5
0 câu trả lờiTin học lớp 11 Kiểu dữ liệu có cấu trúcBài 11: Kiểu mảngnguyen thi khanh nguyen11 giờ trước (21:14)
Viết chương trình đếm số lượng phần tử chẵn trong mảng 1 chiều
1 câu trả lờiTin học lớp 11 Kiểu dữ liệu có cấu trúcBài 11: Kiểu mảngNguyễn Lê Phước Thịnh11 giờ trước (21:58)
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------------------------------------}
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('so phan tu chan trong day la: ',dem);
readln;
end.