Question

Se da un tablou liniar cu n componente numere intregi.Afisati indicii componentelor cu valorea pozitiva(IN PASCAL)

Answer 1

Program Tema;

var   v:array [1..100] of integer;
    i,n:integer;
Begin
writeln('Introduceti nr elemente: ');
readln(n);
writeln('Introduceti elementele sirului: ');

for i:=1 to n do
begin;
read(v[i]);
end;
writeln('Indicii elementelor pozitive sunt: ');
for i:=1 to n do
begin
if v[i]>0 then
write(i);
write(' ');
end;
End.