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

Question

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

Answer 1

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

Comments

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

Answer 2

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<br>         else
         begin
         ind:=i;
     writeln(ind); break;
     end;
end.

Comments

так же ввел все равно 10

---

щас попробую без

---

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

---

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

---

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