Nguyễn Minh Khang
15/04/2000
| Số câu hỏi | 0 |
| Số câu trả lời | 3 |
| Điểm | 22 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (3)
-
Nguyễn Minh Khang đã trả lời trong câu hỏi: Viết chương trình nhập một mảng A có n phần tử? Cách đây 4 năm
uses crt;
var i,n,max,tong:integer;
A:array[1..100] of integer
begin
clrscr;
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do begin
write('A[',i,']= '); readln(A[i])
end;
writeln('Mang da nhap la:');
for i:=1 to n do writeln('A[',i,']=',A[i]);
max:=0;
tong
for i:=1 to n do if max<A[i] then max:=A[i];
for i:=1 to n do tong:=tong+A[i];
writeln('So lon nhat la: ',max);
writeln('Tong gia tri mang A la: ', tong);
readln
end.
-
Nguyễn Minh Khang đã trả lời trong câu hỏi: Viết chương trình nhập vào một dãy số nguyên xác định số đó ra màn hình tính tổng các số dương và xuất ra màn hình? Cách đây 4 năm
Chương trình nhập số nguyên từ bàn phím rồi tính tổng các số dương rồi xuất ra màn hình:
uses crt;
var i,n,duong:integer;
A:array[1..100] of integer;
begin
clrscr;
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do begin
write('A[',i,']='); readln(A[i]);
end;
duong:=0;
writeln('Cac so duong la: ');
for i:=1 to n do begin if A[i]>0 then duong:=duong+A[i]; write(A[i],' '); end;
write('Tong cac so duong la: ',duong);
readln
end.
-
Nguyễn Minh Khang đã trả lời trong câu hỏi: Viết chương trình nhập vào dãy gồm n phần tử nguyên từ bàn phím? Cách đây 4 năm
Chương trình nhập dãy số gồm n phần tử nguyên từ bàn phím:
program nhap;uses crt;
var i,n:integer
A:array[1..100] of integer;
begin
clrscr;
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do begin
write('A[',i,']= '); readln(A[i]);
end;
readln
end.
