Технический форум - Задача на массив

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Задача на массив (http://www.tehnari.ru/f41/t44450/)

аннаа

07.01.2011 23:49

Задача на массив

Помогите решить задачу. Пожалуйста !Вычислить произведение и количество положительных элементов массива

MrSTEP

08.01.2011 00:02

А почему сами не попробуете решить? Да и язык программирования у нас принято указывать.

И не цепляйтесь к чужим темам, создавайте свои. Реплика от лица модератора.

ctpz	08.01.2011 00:19

Вот на PureBasic для произведения

Код:

OpenConsole()

a$=-25

b$=190

c$=6

e$=-2

p$=a$*b$*c$*e$

PrintN("Proizvedenie ravno "+p$)

MrSTEP

08.01.2011 00:43

ctpz, а вам не кажется, что задание поставлено иначе? Массив - это не 4 переменных с разными именами, а последовательность однотипных величин под одним именем.

AlexZir

08.01.2011 08:02

ctpz
В случае basic тут нужно использовать оператор dim :)

аннаа

08.01.2011 13:49

Извините пожалуйста ничего в информатике не понисаю.в школе у меня ее не было,это было очень давно.Просто сейчас надо сдать контрольную,информатика мне вообще не нужна.извините еще раз просто прошу помощи.

AlexZir

08.01.2011 14:54

Про язык программирования вы так ничего и не написали, да и про массив ни слова пояснений :(
На Pascal:

Код:

var i,n: integer;

mas: array[1..10] of integer;

p: longint;

begin

randomize;

p:=1; n:=0;

for i:=1 to 10 do begin

mas[i]:=random(100)-50;

if mas[i]>0 then begin inc(n); p:=p*mas[i]; end;

writeln(mas[i]);

end;

writeln;

writeln('kol-vo pozitive ',n);

writeln('prouzv pozitive',p);

readln;

end.

аннаа

10.01.2011 13:25

А там больше ничего не написано ,все что было я написала.

Часовой пояс GMT +4, время: 19:35.