Question

В массиве целых чисел из 200 элементов, найти произведение каждых пятых чисел ( то есть z5, z10 и т. Д.) заполнить с помощью рандом. На языке программирования Паскаль. Помогите пожалуйста.

Answer 1

Ответ:

var

 i: integer;

 p: uint64;

 z: array[1..200] of integer;

begin

 p := 1;

 for i := 1 to 200 do

 begin

    z[i] := round(random(11)) + 1;

    Write(z[i], ', ');

    if (i mod 5 = 0) then p := p * z[i];

 end;

 Writeln();

 WriteLn('Произведение каждых пятых элементов массива равно ', p);

end.

Объяснение: