Pascal ABC. Найти произведение элементов массива целых чисел, которые кратны 7. Размерность массива — 15. Заполнение массива осуществить случайными числами.

В PascalABC можно создать массив из \(15\) целых чисел, заполнить его случайными числами и найти произведение тех элементов, которые кратны \(7\).

Пример программы:

program ProizvedenieKratnyh7;
var
a: array[1..15] of integer;
i, p: integer;
est: boolean;
begin
randomize;
p := 1;
est := false;

writeln('Массив:');
for i := 1 to 15 do
begin
a[i] := random(101) - 50;
write(a[i], ' ');
if a[i] mod 7 = 0 then
begin
p := p * a[i];
est := true;
end;
end;

writeln;
if est then
writeln('Произведение элементов, кратных 7: ', p)
else
writeln('В массиве нет элементов, кратных 7');
end.

Здесь `random(101) - 50` даёт случайные числа от \(-50\) до \(50\). Переменная `est` нужна, чтобы понять, встретились ли вообще элементы, кратные \(7\).

0 0 Пожаловаться