👤
00ZAIA00EZ
a fost răspuns

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

Răspuns :

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.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari