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 )
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 )
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.
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.