Даны натуральные числа n,p, целые числа a1 , ... ,an.

[Наталья111]

программу в Delphi:
Даны натуральные числа n,p, целые числа a1 , ... ,an.
Получить произведение членов последовательности a1 , ... ,an, кратных p.

ПОЖАЛУЙСТА ПОМОГИТЕ РЕШИТЬ ЗАДАЧКУ, А ТО Я НЕ УСПЕВАЮ ПОСЛЕЗАВТРА У МЕНЯ СЕССИЯ! ПОЖАЛУЙСТА!

[MalexG]

var
  N, P: word;
  S: integer;
  i: integer;'
  A: array of integer;
begin
  Randomize;   // Инициализация генератора случайных чисел
...  // Действия по вводу N и P
  SetLength(A, N);  // Установка размерности динамического массива
  // Заполнение массива случайными числами
  for i := 0 to N-1 do
    A[i] := Random(100);
  
  S := 1;
  for i := 0 to N-1 do
    if A[i] mod P = 0 then
      S := S * A[i];       // произвед. членов послед. a1 , ... ,an, кратных p
  ...    // Вывод результата
end;

[Наталья111]

MalexG CПАСИБО! А это в дельфи оформлять как процедуру для кнопки (Button)?

[Наталья111]

Подскажите пожалуйста какие из компонентов должны быть размещены на форме?

[KORN]

размести кнопку и label в которую будет выводиться результат

[Наталья111]

помогите пожалуйста описать "вывод результата" в label1.
что то не получается.
ПОЖАЛУЙСТА! ЗАРАНЕЕ СПАСИБО!

[KORN]

вы что вообще на пары не ходили7 этому учат на первых лекциях... или в 10 классе

label1.caption:=inttostr(s);

[Наталья111]

СПАСИБО! При любой генерации случайных чисел динамического массива ответ будет либо 0, либо 1. Правильно?

[s.Creator]

Random();

дает случайные числа 0 <= result < 1

Random(100);

дает случайные числа от 0 до 99 ( 0 <= result < 100)

[Наталья111]

ВСЕМ ОГРОМНОЕ СПАСИБО ЗА ПОМОЩЬ!!!