Задайте массив из 10 элементов с датчика случайных чисел. замените все нечетные элементы с четными индексами на нули. выведите на экран исходный и полученный массивы. !

Var a: array[1..10] of integer; i: integer; begin for i: =1 to 10 do begin   a[i]: =random(0,20);   write(a[i]: 3);   if(odd(a[i])) and (not odd(i)) then a[i]: =0;   end; writeln(); for i: =1 to 10 do   write(a[i]: 3); end.

ответ:3D графика в настоящий момент используется в области «яркой» графики, высокоинформационных сред (графиков, диаграмм, геоинформационных систем, систем проектирования и т.д.), новых возможностей в искусстве и инсталляциях, а также для работы с человеческими чувствами и впечатлениями.

2D системы сейчас более эффективны в обычной работе (привычные Word, Excel), для подготовки более стандартных приложений и презентаций (быстрее, дешевле) напр., в PowerPoint или Visio. Пока еще не разработаны концептуальные подходы к формированию информативных 3D текстов и 3D таблиц (скорее всего тут дело за Microsoft). Конечно, в 2D проще создавать видео и анимацию (напр., флеш-анимацию), проще обрабатывать фотографии. Вообще, 2D намного проще чем 3D.

Объяснение:

Program Example_180;

Uses crt;

Var m,n,k:word; {n – начальное количество сундуков с

золотом, m-ежегодная " прибыль”

Чахлика Бессмертного, k – “потребности”

Василисы Премудрой}

Sum,Years:word; {Sum – ежегодное накопление Чахлика

Бессмертного, Years-возраст Василисы

Премудрой}

Begin

Clrscr;

Write ('введите начальное количество сундуков с золотом: ’);

Readln(n);

Write(‘Введите ежегодный доход Чахлика: ’);

Readln(m);

Write(‘Введите “потребности” Василисы Премудрой: ’);

Readln(k);

Sum:=n; {Начальный “капитал” Чахлика}

Years:=18; {начальный возраст Василисы}

While Sum<=k do

Begin

Sum:=Sum+m;

Years:=Years+1;

End;

Writeln(‘Василисе уже исполнилось ’,Years,’ лет.‘);

Readkey;{Задержка изображения на экране}

End.

Объяснение:

я переводила вот так получилось