Заполните массив 20 числами от -30 до 10. Найдите индекс и значение первого положительного элемента массива. Вывести на экран массив, а затем индекс и значение первого положительного элемента.
More Questions From This User See All
Answers & Comments
Verified answer
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