Bài 4: Bài toán và thuật toán

i am ahahahauuu

Tính tổng giá trị các phần tử khác k (k là một số nguyên) của dãy số gồm n số nguyên khác nhau từ a1,..., an.

Nguyễn Lê Phước Thịnh
22 tháng 10 2020 lúc 16:49

uses crt;

var a:array[1..100]of integer;

i,n,k,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

t:=0;

for i:=1 to n do

if a[i]<>k then t:=t+a[i];

writeln('Tong cac phan tu khac ',k,' la: ',t);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
shushu333
Xem chi tiết
Ngọc Anh Phạm
Xem chi tiết
Mai Chi
Xem chi tiết
Hoài Linh
Xem chi tiết
Trần Phương Linh
Xem chi tiết
river
Xem chi tiết
Linh ???
Xem chi tiết
Lan Trịnh Thị
Xem chi tiết
đặng quốc huy
Xem chi tiết