После Program введи что-то, например zadanie;
Не забудь про символ "точка с запятой"
Палитра состоящая из 32 цветов - это 2 в 5 степени т.е 5 бит на 1px
Массив создается и заполняется рандомными числами до 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.
Провод, кнопки ВКЛ/выкл, камера.
Пятница, суббота, воскресенье.
Вывод на тестовой задаче
точка 1 x = y = z = -3 1 5
точка 2 x = y = z = -2 10 5
точка 3 x = y = z = 6 0 5
четвертая точка: x = 7 y = 9 z = 5<span>
</span>