viết chương trình nhập vào mảng A. in ra màn hình các phần tử vừa nhập
viết chương trình nhậm vào mảng A. in ra tổng các phần tử vừa nhập
Gợi ý: Áp dụng kiến thức bài 9
Gíup mình với
viết chương trình nhập vào mảng A. in ra màn hình các phần tử vừa nhập
viết chương trình nhậm vào mảng A. in ra tổng các phần tử vừa nhập
Gợi ý: Áp dụng kiến thức bài 9
Gíup mình với
mình thấy giống như đề thiếu nên bạn thử xem đề này đúng không
Đề bài: Viết chương trình nhập Viết chương trình nhập mảng a gồm n số nguyên (n <= 100. Tính và đưa ra màn hình tổng các số chia hết cho số nguyên k).
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 so k=’); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(‘Tong cac so chia het cho ‘,k,’ la: ‘,t);
readln;
end.
Câu 1:
program Cau_1;
uses crt;
var A:array [1..500] of integer;
n,i: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Cac phan tu vua nhap: ‘);
for i:=1 to n do write(A[i],’ ‘);
readln
End.
Câu 2:
program Cau_2;
uses crt;
var A:array [1..500] of integer;
n,i,S: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
S:=S+A[i];
end;
write(‘S = ‘,S’);
readln
End.