Работа с процедурами и функциями

[ksenija15reg]

Составить процедуру нахождения третьего положительного элемента массива А(n). Ввод элементов массива оформить в виде процедуры.

[Serge_Bliznykov]

Ксения, какой язык программирования? Что именно не получается?
Описание типов и переменных сделали?
Процедуру ввода массива сделали?

[ksenija15reg]

язык - pascal
вот что получилось:

program z2;
uses crt;
type
  mas = array[1..100] of integer;

var
  a: mas;
  n, rez: integer;

procedure vvodmas(var b: mas);
var
  i: integer;
begin
  randomize;
  for i := 1 to n do
  begin
    b[i] := random(32) - 10;
    write(b[i]: 4);
  end;
end;

function poisk(var b: mas): integer;
var
  i, k, ii: integer;
begin
  for i := 1 to n do
    if b[i] > 0 then begin
      k := k + 1;
      if k = 3 then ii := i;
    end;
  poisk := ii;
end;

begin
  clrscr;
  write('n= ');
  read(n);
  vvodmas(a);
  rez := poisk(a);
  writeln('tretiy polozhitelniy element: ', rez);
  readkey;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Poisk:=b[ii];

Вам же надо сам элемент, а не его индекс

[ksenija15reg]

Сообщение от ZX Spectrum-128

Poisk:=b[ii];

Вам же надо сам элемент, а не его индекс

я так делала. программа не выводит результат

[ZX Spectrum-128]

program z2;
uses crt;
type
  mas = array[1..100] of integer;

var
  a: mas;
  n, rez: integer;

procedure vvodmas(var b: mas);
var
  i: integer;
begin
  randomize;
  for i := 1 to n do
  begin
    b[i] := random(32) - 10;
    write(b[i]: 4);
  end;
end;

function poisk(b: mas): integer;
var
  i, k, ii: integer;
begin
  k:=0;
  for i := 1 to n do
    if b[i] > 0 then begin
      k := k + 1;
      if k = 3 then ii := i;
    end;
  poisk := b[ii];
end;

begin
  clrscr;
  write('n= ');
  read(n);
  vvodmas(a);
  rez := poisk(a);
  writeln('tretiy polozhitelniy element: ', rez);
  readkey;
end.

[ZX Spectrum-128]

Не забудьте добавить проверку в функции poisk на то, что положительных элементов нет вообще или их не три.

[Serge_Bliznykov]

Ксения, если тот код, что Вы привели, Вы писали самостоятельно, то Вы умница.
Решение почти рабочее, так, мелочи упущены! Но направление точное.

Посмотрите, я немного доработал Ваш код, избавился от использования глобальных переменных и сделал так, чтобы процедура Poisk возвращала не величину нужного элемента, а его ИНДЕКС. При этом, если такого элемента в массиве НЕТ, тогда возвращается -1 (это просто любое число, индекс заведомо несуществующего элемента массива. Можно было взять -2, можно n+1 - главное, чтобы был несуществующих индекс).

будут вопросы - спрашивайте:

program z2;
uses crt;
type
  mas = array[1..100] of integer;

procedure vvodmas(var b: mas; var n : integer);
var
  i: integer;
begin
  randomize;
  for i := 1 to n do
  begin
    b[i] := random(32) - 10;
    write(b[i]: 4);
  end;
  WriteLn;
end;

function poisk(const b: mas; const n : integer): integer;
var
  i, k, ii: integer;
begin
  k := 0;
  for i := 1 to n do
    if b[i] > 0 then begin
      k := k + 1;
      if k = 3 then begin 
         ii := i;
         break; {если нашли третий положительный элемент - прерываем цикл}
      end;  
    end;
  if k=3 then 
    poisk := ii
  else
    poisk := -1; {возвращаем -1 если нет третьего положительного числа}
end;

var
  a: mas;
  n, rezIndex: integer;



begin
  clrscr;
  write('n= ');
  read(n);
  vvodmas(a,n);
  rezIndex := poisk(a, n);
  if  rezIndex<>-1 then
     writeln('tretiy polozhitelniy element: ', a[rezIndex])
  else
     writeln('Net v massive tretiego pologitelnogo chisla!');
  readkey;
end.

[ksenija15reg]

Ребят, большое спасибо! опять из-за маленькой ошибки мучилась)) ох уж эта невнимательность!