Определить произведение элементов массива, кратных заданному числу п

@Aigerimss · Регистрация: 17.09.2012

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

дан массив из н элементов ( натур числа). Определите произведение элементов, кратных заданному числу п

@Ev[G]eN · 17.09.2012, 22:07

Pascal

const
  n = 10;
var
  Arr: Array[1..n] of Integer;
  Proizv: LongInt;
  Chislo: Integer;
  i: Byte;
begin
  Randomize;
  Proizv:=1;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    Arr[i]:=Random(45);
    write(Arr[i], ' ');
  end;
  writeln;
  write('Введите число: ');
  readln(Chislo);
  for i:=1 to n do
    if (Arr[i] mod Chislo = 0) then
      Proizv:=Proizv * Arr[i];
  writeln('Произведение: ', Proizv);
end.

@Aigerimss 0 / 0 / 0 Регистрация: 17.09.2012 Сообщений: 5
		1
	Определить произведение элементов массива, кратных заданному числу п 17.09.2012, 19:54. Показов 1372. Ответов 1 Метки нет (Все метки) дан массив из н элементов ( натур числа). Определите произведение элементов, кратных заданному числу п 0

	17.09.2012, 22:07

Определить произведение элементов массива, кратных заданному числу п

Решение