вычислить произведение элементов, расположенных между первым и последним положительными элементами

@ooze · Регистрация: 23.08.2009

Студворк — интернет-сервис помощи студентам

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

Добавлено через 30 минут
блиииин!)) извините за наглость, но оч срочно!))

@lera8 · 23.12.2009, 00:00

У меня 1-ый и последний полож. элементы включены, если не надо, то напишите

Pascal

var
 a:array [1..20] of integer;
 i,k,n,c,pr:integer;
 begin
    writeln('введите размер массива');
    readln(n);
  {Заполнение случайными числами и вывод массива}
  for i:=1 to n do
      a[i]:=random(100)-50;
  writeln('исходный массив');
  for i:=1 to n do
      write(a[i]:4);  writeln;
    pr:=1;
  for i:=1 to n do
    if a[i] > 0 then begin
      c:=i; break;
    end;
  for i:=n downto 1 do
      if a[i] > 0 then begin
        k:=i; break;
      end;
     pr:=1;
   for i:=c to k do
      pr:=pr*a[i];
  writeln(pr);
end.

@ooze 0 / 0 / 0 Регистрация: 23.08.2009 Сообщений: 6
		1
	вычислить произведение элементов, расположенных между первым и последним положительными элементами 22.12.2009, 23:46. Показов 1151. Ответов 1 Метки нет (Все метки) вычислить произведение элементов, расположенных между первым и последним положительными элементами. помогите пожалуйста оч прошу) Добавлено через 30 минут блиииин!)) извините за наглость, но оч срочно!)) 0

Опции темы

вычислить произведение элементов, расположенных между первым и последним положительными элементами

Решение