Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Le MNguyệt
viết ct nhập mảng 1c gồm 200 pt thuộc kiểu nguyên sau đó a. tìm số dương đầu tiên và chỉ số của nó trong mảng b. tìm số dương cuối cùng và chỉ số của nó trong mảng bài 2 viết ct nhập mảng 1c gồm 100pt thuộc kiểu nguyên a. in ra màn hình danh sách các số chẳn b. in ra màn hình các số từ 1 đến 10
Nguyễn Lê Phước Thịnh
4 tháng 3 2021 lúc 20:21

Bài 1: 

uses crt;

var c:aray[1..200]of integer;

i,vt1,vt2:integer;

begin

clrscr;

for i:=1 to 200 do 

  begin

write('C[',i,']='); readln(c[i]);

end;

for i:=1 to 200 do 

  if c[i]>0 then

begin

vt1:=i;

break;

end;

if vt1=0 then writeln('Khong co so duong trong day')

else writeln('So duong dau tien trong day la: ',c[vt1],' va chi so cua no la: ',vt1);

for i:=200 downto 1 do 

  if c[i]>0 then 

begin

vt2:=i;

break;

end;

if vt2=0 then writeln('Khong co so duong trong day')

else writeln('So duong cuoi cung trong day la: ',c[vt2],' va vi tri cua no la: ',vt2);

readln;

end.


Các câu hỏi tương tự
Sulann
Xem chi tiết
Benny
Xem chi tiết
nông thị ngân
Xem chi tiết
Meii
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Tô Thị Thanh Tuyền
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Linh Chi
Xem chi tiết