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

@*Angell* · Регистрация: 12.10.2011

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

В произвольном одномерном массиве найти произведение положительных элементов, кратных заданному числу.( [1..15] )

@КонецСвета · 21.11.2011, 15:37

Pascal

uses crt;
var a: array [1..15] of integer;
    i, n, p: integer;
begin
writeln ('Введите число');
readln (n);
p:=1;
writeln ('Исходный массив');
for i:=1 to 15 do
    begin
    a[i]:=random(21)-10;
    write(a[i]:4);
    if a[i] mod n=0 then p:=p*a[i];
    end;
writeln;
writeln ('Произведение кратных ',n,' элементов = ',p);
end.

@Angell 20 / 0 / 0 Регистрация: 12.10.2011 Сообщений: 34
		1
	Найти произведение положительных элементов, кратных заданному числу 21.11.2011, 15:26. Показов 2592. Ответов 1 Метки нет (Все метки) В произвольном одномерном массиве найти произведение положительных элементов, кратных заданному числу.( [1..15] ) 0

	21.11.2011, 15:37

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

Решение