Đề bài : cho mảng A gồm 12 phần tử thuộc kiểu nguyên . Viết hàm tính tổng các phần tử của mảng A…… Ai làm giúp mình với.. Mình cần gấp
Đề bài : cho mảng A gồm 12 phần tử thuộc kiểu nguyên . Viết hàm tính tổng các phần tử của mảng A…… Ai làm giúp mình với.. Mình cần gấp
program tinh_tong;
uses crt;
var A:array[1..12] of integer;
i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 12 do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
t:=t+A[i];
end;
write(‘Tong la: ‘,t);
readln;
end.
) Viết thủ tục nhập giá trị cho mảng A từ bàn phím
procedure nhap(var A:kmang; var n:integer);
begin
write(‘Nhap so phan tu cua mang N=’);
readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu A[‘,i,’]=’);
readln(A[i]);
end;
end;
b) Viết thủ tục in ra màn hình các phần tử âm trong mảng A.
procedure hienam(A:kmang;n:byte);
begin
for i := 1 to n do
if A[i] < 0 then write(A[i],’ ’);
end;