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

Question

Информатика

Аленка

29 ноября, 01:05

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

+2

Ответы (2)

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

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

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.

Ульянка · Answer 2

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