Маркированные списки применяются при перечислении или выделении отдельных фрагментов текста. А нумерованные списки полезны в тех случаях, когда нужно определить порядок изложения.
Создать маркированный список можно двумя способами:
1. В начале абзаца ввести звездочку или знак "больше", а затем нажать Tab или пробел.
2. Автоматический маркированный список создается так: во вкладке "Файл" выбрать "Параметры". В разделе "Правописание" выбрать "Параметры автозамены". Затем в разделе "Автоформат" установить флажки напротив стилей.
Чтобы создать нумерованный список необходимо:
Написать "1." и поставить пробел или нажать Tab.
Program programma;
uses crt;
var i,j,m, n, k: integer;
a:array [1..100, 1..100] of integer;
begin clrscr;
randomize;
write('N = '); readln(n);
write('M = '); readln(m);
for i:=1 to n do
begin
for j:= 1 to m do
a[i,j]:=random(50);
end;
writeln;
k:=0;
for i:=1 to n do
begin
for j:= 1 to m do
write(a[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
for j:= 1 to m-1 do
if (a[i,j]<=a[i,j+1]) then k:=k+1;
writeln;
if (k=m-1) then writeln ('Номер строки: ', i);
k:=0;
end;
end.
Var a:array[1..10] of integer;
b,c,i:integer;
begin
writeln('Write 10 numbers:');
for i:=1 to 10 do
read(a[i]);
b:=0;
c:=0;
for i:=1 to 10 do
if a[i] mod 2=0
then b:=b+1
else c:=c+1;
writeln('Even numbers:',b); // Четных
writeln('Odd numbers:',c); // Нечетных
readln
end.
