найти номер первого положительного элемента массива в паскале

Она не работает, к сожалению.

вы программист?

так же 10 чисел и из них должны отриц быть так

В каком паскале нужно было?

после того как ты сказала удалить тоже 10 выводит

вторая прога сразу должна вывести ответ .....вроде так ......там в моей надо индексу присвоит значение 1 и потом увеличит его в условии

const N = 20;var arr: array[1..N] of integer; i: byte;begin randomize; for i:=1 to N do begin arr[i] := random(100) - 75; write(arr[i]:4); end; writeln; for i:=1 to N do if arr[i] > 0 then begin writeln(i); break; end;end.

program primer;const n=10;var a : array [1..n] of integer;i:integer;beginwriteln ('vvedite massiv');for i :=1 to n doreadln(a[i]);a[i]:=a[1];if a[i]>0 then writeln ('i=',i);readln;end.я не уверена ...правильно ли решено....паскаль пока не скачала и не могу переправерить....если кто то имеет задачи с файлами напишите .....мне срочно они нужны

Program primer;Uses crt;var i,n,ind: integer;    a:array[1..100] of integer;begin clrscr;      randomize;      write('Pazmer massiva  = ');      readln(n);      for i:=1 to n do      a[i]:= random(100)-70;      for i:=1 to n do      write(a[i]:5);      writeln;      writeln;     for i:=1 to n  do         if a[i]<=0 then ind:=ind+1         else         begin         ind:=i;     writeln(ind); break;     end;end.