Repeat

[Наталья111]

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

Помогите пожалуйста программу сделаную с помощью цикла for, переделать в repeat.
Заранее ОГРОМНОЕ СПАСИБО!

[Наталья111]

Ну очень прошу ПОМОГИТЕ ПОЖАЛУЙСТА!!!

[KORN]

а вы что нить пробовали сделать7 покажите наброски...

и ваще че за файл7 учитесь нормально выкладывать... кое как разобрался

[KORN]

procedure TForm1.Button1Click(Sender: TObject);
var
  N, P: word;
  S: integer;
  i: integer;
  A: array [0..100] of integer;
begin
  Randomize;   // Инициализация генератора случайных чисел
  // Действия по вводу N и P
  //SetLength(A, N);  // Установка размерности динамического массива
  // Заполнение массива случайными числами
  for i := 0 to 100 do
    A[i] := Random(100);

  p:=2;
  S := 1;
  i:=0;
  repeat
    if A[i] mod P = 0 then
      S := S * A[i];       // произвед. членов послед. a1 , ... ,an, кратных p
    // Вывод результата
    label1.caption:=inttostr(s);
    inc(i);
  until i<=100;
end;

я сделал так если какие недочеты, исправляйте

[Наталья111]

Спасибо огромное KORN! :-)

[Terran]

Этот цикл:

 for i := 0 to 100 do
    A[i] := Random(100);
  p:=2;
  S := 1;
  i:=0;

Можно записать так:

i := 0;
 Repeat
 A[i] := Random(100);
  p:=2;
  S := 1;
  i:=0;
  Until i<=100;

[Наталья111]

Спасибо Terran! :-)

[KORN]

Сообщение от Terran

Этот цикл:

 for i := 0 to 100 do
    A[i] := Random(100);
  p:=2;
  S := 1;
  i:=0;

Можно записать так:

i := 0;
 Repeat
 A[i] := Random(100);
  p:=2;
  S := 1;
  i:=0;
  Until i<=100;

в условии не ставилось задания задать массив через repeat, ну вот и не написал