Question

Заполните массив 20 числами от -30 до 10. Най­ди­те индекс и значение первого положительного элемента массива. Вывести на экран массив, а затем индекс и значение первого положительного элемента. ​

Answer 1

var

a:array[1..20] of integer;

i,pp:integer;

Begin

randomize;

pp:=-1;

for i:=1 to 20 do begin

a[i]:=random(41)-30;

write(a[i],' ');

if (a[i]>0) and (pp=-1) then pp:=i;

end;

Writeln();

Writeln(pp);

if pp>-1 then Writeln(a[pp]);

end.

Если положительных элементов не было то выведется -1