Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Некоторые команды Рисователя
использовать Рисователь
новый лист(ширина,высота,цвет_фона)
линия(x1, y1, x2, y2)
в точку(x, y)
линия в точку(x, y)
прямоугольник(x1, y1, x2, y2)
окружность(x, y, r)
эллипс(x1, y1, x2, x2)
пиксель(x, y, цвет)
RGB(r, g, b)
RGBA(r, g, b, a)
перо(толщина, цвет)
кисть(цвет)
убрать кисть
залить(x, y)
надпись(x, y, текст)
шрифт(название, размер, ж, к)
Объяснение:
program xxx;
var i, n : integer
d : array[1..30] of real;
begin
write ('введите разметность массива n=');
readln(n);
writeln(''введите элементы массива d: ');
for i: =1 to n do
readln(d[i]);
writeln ('исходный массив d: ');
write(d[i]);
if d[i] mod 3 = 0 then d[i]: = 2 * d[i];
writeln ('полученный массив d: ');
readln
end.
Популярные вопросы