Var a:array [1..10] of integer;
b:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10);
for i:=1 to 10 do
write(a[i],' ');
writeln;
i:=1;
while i<=9 do
begin
b[i]:=a[i]*3;
i:=i+2;
end;
i:=2;
while i<=10 do
begin
b[i]:=a[i]*2;
i:=i+2;
end;
for i:=1 to 10 do
write(b[i],' ');
<span>end.</span>
Ответ:
Изображение представлено дискретно.
Объяснение:
Изображение представляется в виде пикселей (этаких точек). Каждой точке присваивается ряд различных количественных значений: номер цвета, контрастность и яркость. Их градации не плавные, а с разрывами.
Насчет формулы не уверен, можешь подставить свою.
В общем программы в текстовике, я их проверял они работают