b. Mã chương trình:
-
var i,n:byte;
M:array[1..100] of integer;
tong:longint;
f,g:text;
begin
assign(f,’bai5_2.inp’); reset(f);
assign(g,’bai5_2.out’); rewrite(g);
readln(f,n);
for i:=1 to n do readln(f,M[i]);
tong:=0;
for i:=1 to n do if M[i] mod 2 =1 then
tong:=tong+M[i];
write(g,'Tong cac so le trong day la: ',tong);
close(f); close(g);
end.
|
c. Nhận xét: Với yêu cầu của bài toán thì không cần sử dụng biến mảng vẫn giải được. Hãy thử nhé.
Bài tập 5.3
Viết chương trình nhập n số, xoá số thứ k trong n số vừa nhập.In ra n-1 số còn lại.
n= 10 (Nhập 10 phần tử)
Ví dụ: Nhập 2, 3, 4, 5, 6, 8, 7, 6, 5, 4.
k= 8 (Xoá phần tử thứ 8).
In ra: 2, 3, 4, 5, 6, 8, 7, 5, 4.
a. Hướng dẫn:
Xoá phần tử k bằng cách ghi đè phần tử thứ k+1 lên nó.
Chia sẻ với bạn bè của bạn: |