В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов массива до первого нуля

@Kofeinchik · Регистрация: 06.03.2012

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

В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов массива до первого нуля. Помогите решить, пожалуйста. Заранее благодарен.

Bringoff · 30.11.2012, 15:56

Pascal

var
a:array [1..100] of integer;
 i,index,b:integer;
 begin
 b:=1;
  Writeln('Colichestvo ele.:');Readln(index);
  Writeln('Wwedite massiv:');
  for i:=1 to index do
   begin
    Write('a[',i,'] = '); Readln(a[i]);
   end;
   for i:=1 to index do
    begin
      if a[i]=0 then break;
      b:=b*a[i];
    end;
    Writeln(b);
 end.

@Kofeinchik 0 / 0 / 0 Регистрация: 06.03.2012 Сообщений: 5
		1
	В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов массива до первого нуля 30.11.2012, 14:14. Показов 2260. Ответов 1 Метки нет (Все метки) В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов массива до первого нуля. Помогите решить, пожалуйста. Заранее благодарен. 0

	30.11.2012, 15:56

Опции темы

В заданном массиве B из N элементов есть хотя бы один нуль. Вычислить произведение элементов массива до первого нуля

Решение