нужно решить

@ASKER123 · Регистрация: 16.05.2011

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

задан массив В(12). Найти произведение всех элементов массива до первого нулевого значения.

@Michael#7 · 17.05.2011, 16:38

Pascal

uses crt;
var b: array [1..12] of integer;
    i,p:integer;
begin
clrscr;
for i:=1 to 12 do read(b[i]); i:=1; p:=1;
if b[i]=0 then p:=0 else
while b[i]<>0 do begin p:=p*b[i]; inc(i); end;
writeln(p); readln; readln; end.

@ASKER123 0 / 0 / 0 Регистрация: 16.05.2011 Сообщений: 38
		1
	нужно решить 17.05.2011, 16:21. Показов 320. Ответов 1 Метки нет (Все метки) задан массив В(12). Найти произведение всех элементов массива до первого нулевого значения. 0

	17.05.2011, 16:38

Опции темы