В упорядоченном по не убыванию одномерном массиве чисел определить, есть ли заданное число W, в противном случае подсчитать количество чисел, меньших W, кроме того, вычислить произведение положительных чисел массива.

Question

Информатика

Аленка

27 декабря, 06:07

В упорядоченном по не убыванию одномерном массиве чисел определить, есть ли заданное число W, в противном случае подсчитать количество чисел, меньших W, кроме того, вычислить произведение положительных чисел массива.

+2

Ответы (2)

Знаете ответ на вопрос?

Ульянка · Answer 1

Ульянка 27 декабря, 07:01

0

Помочь:? если нужно олрллрло

Бронислава · Answer 2

Var a:array[1 ... 10]of integer;

i, w, p, k, j:integer;

begin

read (w) ; p:=1;

for i:=1 to 10 do read (a[i]) ;

for i:=1 to 10 do begin

if (a[i]=w) then break

else begin

for j:=1 to 10 do begin

if (a[j]
end; writeln (k) ; end; end;

for i:=1 to 10 do begin

if (a[i]>0) then p:=p+a[i];

end; writeln (p) ; end.