Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Напишите программу, которая находит и выводит номер третьего положительного элемента массива (если из массива вычеркнуть все неположительные элементы, этот элемент стоял бы в получившемся массиве на третьем месте). Если в массиве меньше, чем три положительных элемента, вывести сообщение об этом.

Answer 1

Const n=30;
var a:array[1..n] of integer;
k,i:integer;
begin
for i:=1 to n do begin
 a[i]:=random(21)-10;
 write(a[i],' ');
 end;
writeln;
k:=0; i:=0;
while (i<n)and(k<3) do
 begin
 i:=i+1;
 if a[i]>0 then k:=k+1;
 end;
if k=3 
 then writeln('Номер третьего положительного элемента = ',i) 
 else writeln('В массиве нет 3 положительных элементов');
end.

Пример (для n=20):
-4 -10 3 -4 6 1 -9 4 -10 -8 7 7 0 -2 9 -4 -10 -3 1 -2 
Номер третьего положительного элемента = 6