Viết phương trình nhập vào một mảng số nguyên , tính tổng các phần tử trong mảng có giá trị bằng một số cho trước . Ví dụ: cho trước giá trị 5,tính tổng của các phần tử của mảng sau : 1 5 7 5 2 . Mảng có phần tử thứ 2 và 4 là 5, vậy kết quả là 5+5=10
program hotrotinhoc;
var a: array[1..32000] of integer;
i,k,n: integer;
t: longint;
begin
write(n=’); readln(n);
write(‘Nhap gia tri cho truoc:’); readln(k);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if a[i]=k then t:=t+a[i];
write(t);
readln
end.
program Tin_hoc;
uses crt;
var i,n,tong,k:integer;
a: array [1..10000] of integer;
begin
clrscr;
writeln(‘Nhap do dai cau mang:’);readln(n);
writeln(‘Nhap so cho truoc:’);readln(k);
writeln(‘Nhap ‘,n,’ phan tu cua mang:’);
tong:=0;
for i:= 1 to n do
begin
readln(a[i]);
if a[i] = k then tong:=tong+a[i]
end;
writeln(‘Ket qua: ‘,tong);
readln;
end.