Pascalabc. из массива целых чисел сформировать новый массив, вставляя после каждого четного кратного 4 последний элемент исходного массива. вывести старый, новый массивы и количество вставок. если их не было, то сообщение «вставок не было».

1.

program pr;  

var m[1..10] of integer;  

j: integer;  

begin  

for j: =1 to 10 do  

begin  

m[j]: =random(10)-5;  

write(m[j],', ');  

end;  

readln;  

end.  

2.  

program pr;  

var m[1..20] of integer;  

j: integer;  

begin  

for j: =1 to 20 do  

m[j]: =random(30);  

m[9]: =55;  

end.  

3.  

program pr;  

var m[1..5,1..5] of integer;  

i,j: integer;  

begin  

for i: =1 to 5 do  

for j: = 1 to 5 do  

m[i,j]: =random(9);  

for j: = 1 to 5 do m[j,3]: =0;  

end.  

4.  

program pr;  

var m[1..6,1..6] of integer;  

i,j: integer;  

begin  

for i: =1 to 6 do  

for j: = 1 to 6 do  

m[i,j]: =random(1);  

for j: = 1 to 6 do m[j,3]: =2;  

end.  

5.  

program pr;  

var j,i: integer;  

var m,s: array[1..10] of integer;  

begin  

for j: =1 to 10 do m[j]: =random(20)-10;  

i: =1;  

for j: =1 to 10 do  

if m[j]> 0 then begin  

s: =m[j];  

inc(i);  

end;  

end.  

6.program pr;  

var m[1..6,1..6] of integer;  

i,j: integer;  

begin  

for i: = 1 to 6 do begin  

for j: =1 to 6 do  

begin  

m[i,j]: =random(1);  

write(m[i,j],', ');  

end;  

writeln(' ');  

end;  

readln;  

end.  

program pr;  

var m[1..6,1..6] of integer;  

i,j,c: integer;  

begin  

for i: = 1 to 6 do  

for j: =1 to 6 do begin  

m[i,j]: =random(1);  

if m[i,j]=1 then c: =c+1;  

end;  

write('count: ',c);  

readln;  

end.

первая вкладка ленты называется файл. здесь собраны команды для работы с файлом документа.

 

основные группы этой вкладки:

буфер обмена – содержит инструменты для работы с памятью (буфером обмена). это инструменты вставки (1), удаления (2), копирования (3) текстовых объектов (символы, слова, предложения и т. кнопка формат по образцу (4) позволяет скоприровать оформление указанного фрагмента текста на любой другой фрагмент.

шрифт – cодержит инструменты для изменения гарнитуры и размера шрифта, инструменты изменения начертания   (полужирный, курсив, подчеркнутый, зачеркнутый, подстрочный знак, надстрочный знак). кнопка очистить формат(выделена жёлтой рамкой) отменяет форматирование выделенного фрагмента. еще два инструмента на которые следует обратить внимание - цвет выделения текста (выделено серой рамкой) и цвет текста (выделено коричневой рамкой). первый выделяет фон за текстом, а второй - изменяет цвет букв.

абзац – инструменты для работы с абзацами в документе. данная группа(выделено зеленой рамкой) включает средства выравнивания текста, установку междустрочного интервала. инструменты для работы со списками (маркированный, нумерованный, многоуровневый, изменение уровня списка) выделены красной рамкой.