Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.
a,i,m(12) as integer
for i=1 to 12 do
readln(m(i));
for i=1 to 6 do begin
a:=m(i);
m(i):=m(13-i);
m(12-i):=a;
end;
for i=1 to 12 do
writeln(m(i));
end.
Если что-то не понятно или выводит ошибку - пишите.
Материнская плата – это самая основная плата в системном блоке, которая
определяет производительность компьютера. На материнской плате
устанавливаются основные устройства ПК: процессор, видеокарта, оперативная
память, чипсет, слоты, с помощью шлейфов и кабелей к материнке
подключаться CD-Rom, жесткий диск, дисковод, клавиатура, мышь…
Чтобы правильно подобрать материнскую плату нужно хорошенько изучить
форм-фактор. Это такая плата, которая определяет размер, разъемы питания и
установочные отверстия материнки.
Форм-факторы для материнских плат:
• Advanced Technology eXtended – подходит идеально для сборки домашних ПК;
• micro ATX – подходит для офисных компьютеров;
• mini-ITX.
Чипсет – микросхема, которая обеспечивает подключение к оперативной памяти
процессора. Чипсеты состоят с «Южного» и «Северного» моста».
Сокет – это гнездо, куда на системной плате крепиться процессор.
Процесс выбора материнки:
• выбор поддерживаемого процессора.
• выбор чипсета;
• какие дополнительные функции поддерживает материнская плата;
• выбор производителя.
Все же главным производителем в материнской плате является брэнд. Хоть эти
материнки дороже, но компания зарабатывала свое имя годами, тому и качество
у них высокое.
Что бы Вы не купили, помните, главное в работе – это стабильность.
Const nx=20;var i,j,n:integer; D:array[1..nx,1..nx] of integer;pG,pP:double;m:boolean;begin
write('Введите размер массива n');Readln(n);pG:=1;pP:=1;
for i:=1 to n do begin
for j:=1 to n do begin
Readln(D[i,j]);//D[i,j]:= random(35)-15;end;end;writeln;
for i:=1 to n do beginfor j:=1 to n do begin
write(D[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
if i < n-j+1 then begin write(D[i,j]:4); pP:= pP * D[i,j];end else write(' ':4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
if i <j then begin write(D[i,j]:4); pG:= pG * D[i,j];end else
write(' ':4);end;writeln;end;writeln;
writeln('произведение элементов массива над главной диагональю =',pG);writeln('произведение элементов массива над побочной диагональю =',pP);if pG = pP then m:= true
else m:= false;writeln('Высказывание =', m);<span>end.</span>
Ответ:
1.ЕRP-консультант
2.ЕRP-программист
3.IT-евангилист
4.WEB-дизайнер
<em>5.</em><em>W</em><em>E</em><em>B</em><em>-</em><em>п</em><em>р</em><em>о</em><em>г</em><em>р</em><em>а</em><em>м</em><em>м</em><em>и</em><em>с</em><em>т</em>