В массиве целых чисел из 200 элементов, найти произведение каждых пятых чисел ( то есть z5, z10 и т. Д.) заполнить с помощью рандом. На языке программирования Паскаль. Помогите пожалуйста.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.
Объяснение: