Вычислить произведение элементов массива до первого отрицательного

@Bespredel · Регистрация: 01.12.2010

Помогите решить, пожалуйсто,здачи:
1) В массиве {aj}, j = 1, 2, …10 есть хотя бы один отрицательный элемент. Вычислить произведение элементов массива до первого отрицательного.

@Шутка · 01.12.2010, 17:50

Pascal

const
max=100;
var
a:array[1..max] of integer;
s,i,otr,n:integer;
begin
readln(n);
for i:=1 to n do begin
 readln(a[i]);
 if a[i]<0 then begin otr:=i; break; end;
end;
for i:=1 to otr do
s:=s*a[i];
writeln(s);
end.

@Bespredel 0 / 0 / 0 Регистрация: 01.12.2010 Сообщений: 7
		1
	Вычислить произведение элементов массива до первого отрицательного 01.12.2010, 17:36. Показов 1766. Ответов 1 Метки нет (Все метки) Помогите решить, пожалуйсто,здачи: 1) В массиве {aj}, j = 1, 2, …10 есть хотя бы один отрицательный элемент. Вычислить произведение элементов массива до первого отрицательного. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вычислить произведение элементов массива до первого отрицательного

Решение