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.
я не уверена ...правильно ли решено....паскаль пока не скачала и не могу переправерить....если кто то имеет задачи с файлами напишите .....мне срочно они нужны

Answer 2

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

Answer 3

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

Answer 4

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.

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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

Answer 9

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.