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

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

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

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

@CodeR · 17.09.2012, 19:59

Pascal

Var A:Array[1..100] of integer;
    i,p:byte;
    pr:real;
Begin
    write('Введите размерность: ');readln(n);
    write('Введите p: ');readln(p);
    pr:=1;
    For i:=1 to n do
     Begin
      A[i]:=radnom(30)-15;
      write(A[i],' ');
      if A[i] mod p = 0 then pr:=pr*A[i];
     End;
    writeln('Произведение элементов кратных числу p: ',pr:0:0);
End.

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

Опции темы

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

Решение