Viết chương trình nhập vào số nguyên dương n ( n <=1000 ) và mảng A gồm n số nguyên a1, a2,....an từ bàn phím . Hãy tìm và đưa ra màn hình những số nguyên dương và chỉ số của nó ( mỗi số trên một dòng )

hn547884

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 49 xem

1 trả lời

Thích Trả lời

monhonphuong

program Min;
uses crt;
var A:array [1..1000] of integer;
n,i:integer;
begin
clrscr;
write('Nhap n<=1000: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu A[',i,']: ');
readln(A[i]);
end;
for i:=1 to n do
if A[i]>=0 then writeln(A[i],', chi so la: ',i);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Logadung

uses crt;
var i,n:longint; a:array[1..1000]of longint;
begin
clrscr;
write('Nhap n (n<=1000): ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then
writeln(a[i],' ',i);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Tâm trạng của em sau khi để xảy ra chuyện có lỗi với bạn

1) a) Hội đồng quản trị của 1 công ty gồm 10 người. Có bao nhiêu cách cử 1 ban quản trị gồm: Chủ tịch, Phó chủ tịch, Thư ký và 2 Ủy viên. Biết rằng 2 Ủy viên được đề cử cuối cùng và trong họ, không có ai giữ 2 chức vụ? b) Có thể hình thành được bao nhiêu đề toán KHÁC NHAU, nếu mỗi đề gồm 5 bài toán mà trong đó có ít nhất 2 bài hình học và 2 bài giải tích, nếu sử dụng bộ tài liệu gồm 8 bài hình học và 12 bài giải tích để ra đề?

Đoạn chương trình sau cho kết quả gì với i là biến số nguyên Forum i:=1 to 100 do if i moi 9 =0 then White ( i, '')

giúp mình với, làm giúp mình 1 đoạn văn từ 6 đến 8 câu kể về những đồ dụng học tập của em, có mở bài và kết bài, sử dụng 2 từ láy mai em kt rồi

Viết 1 đoạn văn ngắn khoảng 200 chữ n.xét quan niệm của tác giả thể hiện trong 2 dòng thơ: mẹ ru cái lẽ ở đời - sữa nuôi phần xác hát nuôi phần hồn

How many seasons are there in paris

Em có cảm nhận về tấm lòng của ức trai về cảnh ngày hè

giải hộ em bài này với ạ em cần gấp

hòa tan m gam hỗn hợp 3 kim loại chứa 200ml dd hcl vừa đủ. sau phản ứng thu được 4,48 lít khí h2 (đktc) và thấy khối lượng bình tăng 7,3 gam

kể tên các hình thức bón phân cho cây trồng và các giai đoạn bón phân cho cây trồng

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến