<em>// PascalABC.NET 3.2, сборка 1412 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadSeqIntegerWhile('Вводите, 0- конец:',k->k<>0).ToArray;
Writeln('П=',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Пример</u>
Вводите, 0- конец: 61 1 -86 -23 -35 -57 96 -54 -3 -90 -12 -62 3 -47 27 90 85 0
П=7300372606875554895360000
<span>Память является инструментом хранения информации</span>
Лично мой совет: читайте книги, боже мой :D
А так "если исключить ваш пример (или то как вы его истолковали), то" объектом может быть любой осознаваемый предмет или примитив, так-же за объект может выйти сам субъект, структура или организация.
объектами в природе могут выступать ручьи, камни, горы, поляны :D
Var a,b: array [0..100] of integer;
i, j, s,k,max: integer;
begin
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
(A[k]):= random(90)+78;
write((A[k]:4));
if max < a[k] then begin max:=a[k];s:=k; end;
END;
write('A[' + s +'] =':8, max:4 );B[s]:=max;
writeln;
s:=0;max:=0;
END;
writeln;k:=0;
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
if b[k] > 0 then (b[k]):= random(90)+78; //забег номеров победителей
if max < b[k] then begin max:=b[k];s:=k; end; //победитель среди
победителей
write((b[k]:4));
END;
writeln;
END;
write('A[' + s +'] =':8, max:4 );
end.
только мало что осталось от той программы много
ошибок Главная n нельзя в константы она не будет делиться и т.д.
Разбиваем число по степеням, начиная с конца:
0 - 7
1 - 4
2 - 2
3 - 0
4 - 3
3*8^4 + 0*8^3 + 2*8^2 + 4*8^1 + 7*8^0 = 12455