Как умножить все значения массива между собой?

@krokoboy · Регистрация: 17.04.2021

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

Подскажите, что неправильно в коде или как это правильно можно реализовать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
program test;
var arr:array[1..10] of integer;
i, sum:integer;
begin
sum:=1;
for i:=1 to 10 do arr[i]:= i;
for i:=1 to 10 do writeln(arr[i]);
for i:=1 to 10 do sum:= sum * arr[i];
 
write(sum)
end.

@bormant · 13.12.2022, 20:10

Pascal
1
2
3
4
5
6
var
  p: Longint;
{...}
  p:=1;
  for i:=1 to 10 do p:=p*arr[i];
  WriteLn(p);

Добавлено через 1 минуту
В случае FPC и {$mode FPC} Integer=SmallInt, в который влезает число -32768..32767, но этого недостаточно для сохранения произведения 3628800.

@krokoboy · 13.12.2022, 21:01 **[ТС]**

bormant, в pascal есть какие-то ограничения на int?
Просто не понимаю, почему с 5ю значениями работает, но с 10ю нет.

@bormant · 13.12.2022, 21:17

Зависит от транслятора. Знаковые по возрастанию ёмкости:
ShortInt (8 бит), SmallInt (16 бит), LongInt (32 бит), Int64 (64 бита).
Integer обычно в зависимости от платформы/настроек LongInt или SmallInt.

Добавлено через 1 минуту
До кучи беззнаковые, чтоб два раза не вставать:
Byte (8 бит), Word (16 бит), LongWord (32 бит), QWord (64 бита).

@krokoboy · 13.12.2022, 21:35 **[ТС]**

спасибо

в свою очередь, написал вот так, и это теперь работает корректно:

Pascal
1
2
3
4
5
6
7
8
9
10
11
program test;
var arr:array[1..10] of integer; 
i:integer; 
s:longint;
begin 
s:= 1; 
for i:=1 to 10 do arr[i]:= i; 
for i:=1 to 10 do writeln(arr[i]);
for i:=1 to 10 do s:= s * arr[i]; 
writeln(s); 
end.

@bormant · 13.12.2022, 21:42

На всякий случай, массив тут лишний

Pascal
1
2
3
4
5
6
7
8
9
10
const n=10;
var
  i: Integer;
  p: Longint;
begin
  for i:=1 to n do WriteLn(i);
  p:=1;
  for i:=1 to n do p:=p*i;
  WriteLn(p);
end.

@krokoboy · 13.12.2022, 21:56 **[ТС]**

ну, я использовал такой массив для примера, в задаче он задается рандомно. Спасибо

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@krokoboy здравствуйте 0 / 3 / 0 Регистрация: 17.04.2021 Сообщений: 121
	13.12.2022, 21:01 [ТС]
	bormant, в pascal есть какие-то ограничения на int? Просто не понимаю, почему с 5ю значениями работает, но с 10ю нет. 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	13.12.2022, 21:17
	Зависит от транслятора. Знаковые по возрастанию ёмкости: ShortInt (8 бит), SmallInt (16 бит), LongInt (32 бит), Int64 (64 бита). Integer обычно в зависимости от платформы/настроек LongInt или SmallInt. Добавлено через 1 минуту До кучи беззнаковые, чтоб два раза не вставать: Byte (8 бит), Word (16 бит), LongWord (32 бит), QWord (64 бита). 1

@krokoboy здравствуйте 0 / 3 / 0 Регистрация: 17.04.2021 Сообщений: 121
	13.12.2022, 21:56 [ТС]
	ну, я использовал такой массив для примера, в задаче он задается рандомно. Спасибо 0

Как умножить все значения массива между собой?

Решение