В массиве найти произведение кратных трем элементов. - Pascal ABC
Формулировка задачи:
В заданном массиве (1..75) найти произведение кратных трех элементов.
Решение задачи: «В массиве найти произведение кратных трем элементов.»
textual
Листинг программы
const
MIN = 1;
MAX = 75;
var
ar: Array[MIN..MAX] Of ShortInt;
i: MIN..MAX;
Result: Extended; //Double | Real
begin
Randomize;
Result := 1; Write('Array:');
for i := MIN to MAX do
begin
ar[i] := Random(199) - 99;
Write(ar[i]:4);
if (ar[i] mod 3 = 0)
then
Result := Result * ar[i];
end;
WriteLn; WriteLn('Answer: ', Result:0:0);
end.