Произвести расчет произведения всех чисел до 0

@Booboosik · Регистрация: 16.12.2013

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

Помогите пожалуйста

В переменную А последовательно вводятся целые числа. Прекратить ввод чисел после появления 0. Произвести расчет произведения всех чисел до 0.

Pascal

Program qwe;
uses crt;
var k,n,i,sum:integer;
begin
sum:=1;
clrscr;
for i:=1 to 8 do begin
readln(k);
sum:=sum*k;end;
if k=0 then
writeln('Ïðîãðàììà çàâåðøåíà');
writeln('Sum=',sum);
readkey;
end.

@mellowass · 16.12.2013, 20:53

Pascal

Program qwe;
uses crt;
var a : array [1..8] of integer;
i,i2,sum:integer;
begin
sum:=1;
clrscr;
for i:=1 to 8 do begin
readln(a[i]);
if a[i]=0 then begin
i2:=i;
break;
end;
end;
for i:=1 to i2-1 do sum:=sum*a[i];
writeln('Sum=',sum);
 
end.

@Booboosik · 17.12.2013, 07:46 **[ТС]**

Спасибочки большое

Добавлено через 5 минут
Подскажите а если с клавиатуры так же вводятся 8 чисел и нужно в конце найти максимальное.

@Booboosik 0 / 0 / 0 Регистрация: 16.12.2013 Сообщений: 10
	17.12.2013, 07:46 [ТС]	3
	Спасибочки большое Добавлено через 5 минут Подскажите а если с клавиатуры так же вводятся 8 чисел и нужно в конце найти максимальное. 0