C1: viết chương trình:
– Dữ liệu vào đọc từ tệp MANG.INP
+ Dòng 1: số phần tử N;
+ Các dòng tiếp theo: giá trị của N phần tử (các phần tử mảng);
– Dữ liệu ra ghi vào tệp DEML.OUT; đếm các phần tử lẻ trong mảng.
C1: viết chương trình: – Dữ liệu vào đọc từ tệp MANG.INP + Dòng 1: số phần tử N; + Các dòng tiếp theo: giá trị của N phần tử (các phần tử mảng); – D
By Eva
uses crt;
var i,n,s:integer;
a:array[1..1000] of integer;
const Fi=’MANG.INP’;
Fo=’MANG.OUT’;
Bài làm
uses crt;
var i,n,s:integer;
a:array[1..1000] of integer;
const Fi=’MANG.INP’;
Fo=’MANG.OUT’;
begin
assign(input,Fi); reset(input);
assign(output,Fo); rewrite(output);
readln(n);
s:=0;
For i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
writeln(s);
readln;
end.