Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyên Thu

viết chương trình nhập vào một dãy số hiển thị số âm, dương

Nguyễn Lê Phước Thịnh
16 tháng 12 2020 lúc 19:08

uses crt;

var a:array[1..100]of integer;

n,i:integer;

begin

clrscr;

write('Nhap n=');  readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Cac so am la: ');

for i:=1 to n do

if a[i]<0 then write(a[i]:4);

writeln;

writeln('Cac so duong la: ');

for i:=1 to n do 

  if a[i]>0 then write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
Luyến
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Nguyen Van Anh
Xem chi tiết
Khanh Linh
Xem chi tiết
CHU TẠI
Xem chi tiết
Linh Tran
Xem chi tiết
Nguyễn Phú Trọng
Xem chi tiết
Ken Kaneki
Xem chi tiết
Van Trieu
Xem chi tiết