viết chương trình nhập vào N mảng một chiều al...an in ra màn hình các số dương của mảng vừa nhập
2 câu trả lời
var a: array[1..250] of integer;
i, n: byte;
Begin
Write('N = '); readln(n);
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
End;
for i:=1 to n if a[i]>0 then write(a[i], ' ');
Readln
End.
uses crt;
var a:array[1..100]of longint;
i,n:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>0 then write(a[i]:3);
readln
end.
