uses crt;
type
massiv = array [1..100] of integer; // объявляем свой тип данных
var
mass : massiv ;
sum, proiz , i , n: integer;
begin
clrscr;
write('Введите длину массива : '); readln(n);
sum := 0 ;
proiz := 1 ; // единица потому что у нас умножение, если умножать на 0 будет 0 всегда!!
for i:=1 to n do
begin
write('Введите ', i , ' элемент : '); readln(mass[i]);
if (mass[i] mod 2 = 0) then sum := sum + mass[i]
else proiz := proiz * mass[i];
end;
writeln('Сумма четных равна ', sum);
writeln('Произведение нечетных равно ', proiz);
readln; // чтобы программа не закрывалась
end.
Объяснение:
Inkscape (Инкскейп) — свободно распространяемый векторный графический редактор, удобен для создания как художественных, так и технических иллюстраций (вплоть до использования в качестве САПР общего назначения, чему также лёгкость обмена чертежами).Панель инструментов inkscape расположена в верхней части рабочей области экрана редактора сразу по главным меню. Панель инструментов inkscape содержит значки-иконки, которые вызывают определенные команды редактора. Эти команды также доступны в главном меню или по комбинации клавиш.струмент "Selector/Выделитель"
Инструмент "Node/Узлы"
Инструмент "Tweak/Корректор"
Инструмент "Zoom/Лупа"
Инструмент "Measure/Измеритель"
Инструмент "Rectangle/Прямоугольник"
Инструмент "3D Box/Параллелепипед"
Инструмент "Ellipse/Эллипс и т.д и т.по
Выбери что тебе нужно, надеюсь
Руски пиши