viết chương trình n nhập từ bàn phím in ra màn hình các số lớn hơn 0 và nhỏ hơn 0

Question

maingoc · Answer

Var n,i : integer;

A: array [1..100] of integer;

begin

writeln(‘Do dai cua day so la:’);Readln(n);

for i:=1 to n do begin

readln(A[i]);

If A[i]=0 then begin

writeln(‘Hay nhap lai so’);readln(A[i]);

end;

If A[i] > 0 then writeln(‘Cac so lon hon 0 la:’,A[i],’ ‘,)

else writeln(‘Cac so nho hon 0 la:’,A[i],’ ‘,)

end;

Readln

end.

(có thể có 1 số phần mình viết sai hoặc nhầm)

mocmien · Answer

program lon_nho;

uses crt;

var A:array[1..1000] of integer;

n,i:integer;

begin

write(‘Nhap n: ‘); readln(n);

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

end;

write(‘Cac so lon hon 0: ‘);

for i:=1 to n do

if A[i]>0 then write(A[i],’ ‘);

writeln;

write(‘Cac so nho hon 0: ‘);

for i:=1 to n do

if A[i]<0 then write(A[i],’ ‘);

readln;

end.