СДАМ ГИА: РЕШУ ЕГЭ
Образовательный портал для подготовки к экзаменам
Информатика
≡ информатика
сайты - меню - вход - новости


Задания
Версия для печати и копирования в MS Word
Задание 25 № 3636

Опишите на русском языке или на одном из языков программирования алгоритм подсчета произведения всех отрицательных элементов заданного целочисленного массива размером 30 элементов, в предположении, что в массиве есть хотя бы один отрицательный элемент.

Ре­ше­ние.

Ре­ше­ние на есте­ствен­ном языке:

Объ­явим кон­стан­ту N, рав­ную числу эле­мен­тов мас­си­ва (30), це­ло­чис­лен­ные пе­ре­мен­ные р для хра­не­ния те­ку­ще­го про­из­ве­де­ния от­ри­ца­тель­ных эле­мен­тов и i для хра­не­ния ин­дек­са про­смат­ри­ва­е­мо­го эле­мен­та. Ввод зна­че­ний в мас­сив опи­сы­вать не тре­бу­ет­ся, так как он задан. При­сво­им р зна­че­ние еди­ни­ца. В цикле от пер­во­го (ну­ле­во­го) до по­след­не­го (N или N - 1) зна­че­ния ин­дек­са со­вер­шим сле­ду­ю­щие дей­ствия.

Срав­ним с нулем зна­че­ние те­ку­ще­го эле­мен­та мас­си­ва. В слу­чае, если зна­че­ние те­ку­ще­го эле­мен­та мень­ше нуля, умно­жим те­ку­щее зна­че­ние пе­ре­мен­ной р на зна­че­ние рас­смат­ри­ва­е­мо­го эле­мен­та мас­си­ва.

По за­вер­ше­нии цикла вы­во­дим зна­че­ние пе­ре­мен­ной р.

 

ПРО­ГРАМ­МА НА ПАС­КА­ЛЕ

ПРО­ГРАМ­МА­НА БЕЙ­СИ­КЕПРО­ГРАМ­МА НА СИ
const N=30;

var a: array [1..N] of integer;

p, i: integer;

begin

p := 1;

for i := 1 to N do readln(a[i]);

for i:= 1 to N do

if a [i] < 0

then

p : = p * a [ i ] ;

writeln (p);

end.

N=30

DIM A(N), Р, I AS INTEGER

P = i

FOR i TO N

INPUT A(i)

NEXT i

FOR i=1 TO N

IF A(I) < 0 THEN

P = P * A (I)

ENDIF

NEXT i

PRINT P

END

void main(void)

{ const N=30;

int array [N];

int p;

p = 1;

for (int i = 0; i< N; i++)

scanf(array[i]);

for (int i=0; i{ if (array [i]<0)

{ p= p * array[i];

}

}

printf ("%d", p);

}