В массиве найти произведение кратных трем элементов.

@3451 · Регистрация: 09.10.2016

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

В заданном массиве (1..75) найти произведение кратных трех элементов.

@JokeR.BY · 09.10.2016, 13:02

Pascal

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.

@3451 0 / 0 / 0 Регистрация: 09.10.2016 Сообщений: 1
		1
	В массиве найти произведение кратных трем элементов. 09.10.2016, 12:43. Показов 1219. Ответов 1 Метки нет (Все метки) В заданном массиве (1..75) найти произведение кратных трех элементов. 0

Опции темы

В массиве найти произведение кратных трем элементов.

Решение