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

Question

Информатика

Февронья

10 марта, 18:08

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

+1

Ответы (2)

Знаешь ответ?

Римуся · Answer 1

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

Розалия · 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.