мне нужно найти количество чисел после первого положительного элемента в одномерном массиве. но проблема в том, что вначале мне нужно найти этот первый положительный и его индекс,
но получается ерунда (всегда 0), я знаю почему, но других вариантов нет, ведь если искать второй элемент, то все работает.
const n=10;
type vect=array[1..n] of integer;
var a:vect; i,k:integer;
begin
writeln ('vvod massiva');
i:=1;
k:=0;
while (i<=n)and(k<1) do begin
i:=i+1;
if a[i]>0 then k:=k+1;
end;
i := i + 1поставь после
if a[i]>0 then k:=k+1;
а как мне вывести сам первый положительный элемент и его индекс?
можно как-то так:
i:=1;Теперь смотришь - если i больше n, значит, ничего не нашли.
while (i<=n) and (a[i]<0) do
i:=i+1;
Cialis Generico Simi
Buy Amoxicillin Without Precription