Паскаль! автоматически задается массив, сост. из 20 элементов. все четные элементы заменить нулями. нули поставить в конец массива. я уже заменила все четные, поняла сам процесс, как их поставить в конец, но не соображу, как правильнее записать.

program p1; usescrt; varmas : array[1..20] of integer; i,j,k : integer; tmp : string; begin

clrscr;

writeln('start array: ');

for i : = 1 to 20 do begin

mas[i] : = random(100);

write(mas[i],' ');

end;

for i : = 1 to 20 do begin

if mas[i] mod 2 = 0 then mas[i] : = 0;

end;

 

for i : = 1 to 20 do begin

if mas[i] = 0 then begin

for j : = 20 downto i do if mas[j] < > 0 then begin

k : = mas[j]; mas[j] : = mas[i]; mas[i] : = k;

end;

end;

end;

writeln(''); writeln('result array: ');

for i : = 1 to 20 do write(mas[i],' ');

readln(tmp); read(tmp);

end.

Романтика, аниматор, форманта, романтик, иномарка, фанариот, митрофан, наркомат,камфора, натирка, каротин, тиранка, фонарик, кириана, инфаркт, картина, ритмика,никифор, марафон, матрона, маринка, макитра, формиат, , трофика, маниока, комната,мартини, , антимир, матрона, окраина, фанатик, акроним, миканит, октарин, формант,намотка, аромат, мантра, фианит, африка, кантор, анфима, катион, микрон, фантик,тарник, кианит, фортка, комара, ратник, нарком, арника, камора, анатом, кармин,фактор, морфин, фоника, аконит, мирика, никита, ракита, трафик, картон, форинт,кифара, марина, афронт, кантри, трифон, фирман, иранка, катран, формат, кафтан,тонарм, фантом, тиамин, трофим, каинит, тоника, фараон, карина, моника, мартин,амфора, карман, нотка, ринит, фомка, франт, марфа, морфа, антик, коран, матка,фанат, канат, мирка, танка, трико, финик, корма, мотка, октан, форма, макар,мирок, рамка, томик, актор, мирон, тариф, ирина, кафир, кофта, марка, накат,роман, митра, фитин, минор, тоник, икота, карат, норка, тиара, фаина, аарон,марта, отара, карма, манок, факир, нарта, ротик, франк, манто, тиран, крона,фиакр, фронт, интим, карта, маори, марат, мотик, ритон, афина, макар, нимфа,финка, катар, мотра, рифма, фанки, актин, коата, мирон, нитка, таран, аорта,томна, фанта, амати, икаит, ранка, тарка, марка, роман, икона, комар, ратин,арина, нарик, манка, норма, аркан, камин, инока, мора, факт, крон, така, торн,рита, аком, арфа, крот, мира, ника, рака, трак, фтор, мара, окра, тмин, фора,рама, фанк, кмин, тара, трио, финт, ирак, мрак, фант, афта, каон, коиф, рана,трок, фирн, мина, икао, кара, кома, нора, рант, арат, каин, нара, фара, арка,кама, кима, фарт, нота, тина, фома, киот, крит, тори, фата, морф, ринк, аким,арон, кира, мира, натр, торф, кора, окат, ритм, атом, кана, танк, фиат, корм,кант, миро, рами, тара, корт, маки, рамн, кофр, марк, мина, омар, кара, мана,мирт, нома, трон, фита, арак, кран, оним, форт, амин, нора, крат, март, икра,фока, кино, крин, мион, офит, рота, тора, фрак, тир, кир, мир, рак, кор, фан, кан, тан, мот, акр, ион, кат, риф, ток, акт, кот.нормально?

Картинка которую ты видишь покрывается мнимой  сеткой m*n ячеек, в каждой ячейке можно взять средний цвет (например сложить частоты и разделить на число слагаемых, в визуализаторах  вычисляют сингулярные интегралы по трем характеристикам - рассеянное освещение, отраженное и собственное). все эти значения записывают и получают растровую картинку в виде битовой карты (bitmap) размера  m*n. цвета тоже дискретизируются, от частоты дискретизации зависит размер палитры, обычно используется 32 бита