VCT nhập vào số nguyên N và N số nguyên (N<=100). Hãy in ra các số dương
2 câu trả lời
program mang;
uses crt;
type arrint = array[1..100] of integer;
var i, n :integer;
a : arrint;
begin
clrscr;
write('nhap so luong phan tu cua day so :');readln(n);
for i := 1 to n do
begin
write('so nguyen thu ', i , ' :');readln(a[i]);
end;
write('so duong co trong day la :');
for i := 1 to n do
if a[i] > 0 then write(a[i],' , ' );
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
