Дан массив из 13 элементов. Элементами массива являются первые 13 нечетных чисел. Найти...

0 голосов
33 просмотров

Дан массив из 13 элементов. Элементами массива являются первые 13 нечетных чисел. Найти произведение элементов этого массива.
Написать программу в Паскале, как можно проще, без лишних наворотов, пожалуйста.


Информатика (74 баллов) | 33 просмотров
Дан 1 ответ
0 голосов

Var   proizv:int64; 
  a: array [1..13] of integer;
begin
  // заполняем массив
  for var i:=1 to 13 do
    a[i]:=i+i-1;
  proizv:=1;
  // основной цикл
  for var i:=1 to 13 do
    proizv:=proizv*a[i];
  writeln('Произведение = ',proizv);
end.
-------------------------------
Это работает в АБС-паскале
Типа данных integer мало для хранения произведения, но int64 - достаточно

(32.2k баллов)