Массив создается и заполняется рандомными числами до 10
var
massive: array[1..20] of Integer;
i:Integer ;
summ:integer;
begin
WriteLn('все элементы');
for i:=1 to 20 do
begin
massive[i]:=Random(100);
write(massive[i],', ');
end;
for i:=1 to 20 do
begin
if massive[i] mod 5 = 0 then
summ:=summ+massive[i];
end;
writeln('сумма: ',summ);
end.
Чтобы можно было быстрее их нажимать, руки-то - две!
Лепи из пластилина
потом попробуй по макету сделать из того материала из которого надо.
я думаю что вариант а будет правильным. удачи
Компьютерная графика- моделирование картинки в 3D. Используется при монтаже видио, в фильмах и мультах