Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p

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

@Vadik1993 · 17.09.2012, 20:32

Pascal

program a12;
uses
crt;
var
  a:array[1..100]of integer;
  i,n,p, s: byte;
begin
  clrscr;
  writeln ('Дан массив A(i),состоящий из целых чисел.Получить произведение элементов массива, кратных p ');
  randomize;
  writeln('Введите количество элементов массива');
  readln(n);
  for i:=1 to n do
    begin
      writeln('Введите масств',i);
      readln(a[i]);
    end;
  writeln('Введите кратное число');
  readln(p);
  s:=1;
  for i:=1 to n do
    begin
      if a[i] mod p=0 then
        s:=s*a[i];
    end;
  writeln('s=',s);
readkey;
end.

Данная задача уже раньше решалась на данном форуме.

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

Опции темы

Дан массив из n элементов. Найти произведение элементов, кратных заданному числу p

Решение