Python 3.7


Задание 7

НЕДОПУСТИМО ИСПОЛЬЗОВАТЬ СТАНДАРТНЫЕ ФУНКЦИИ СОРТИРОВКИ)​

Определить код символа в Word

Для примера попробуем найти код символа код символа точка. Сначала откроем чистый документ Word и добавим в него символ точки ., теперь чтобы получить код символа Unicode необходимо выделить один символ и затем нажать сочетание клавиш Alt+X.

Для примера определим код символа точка. Для начала откроем чистый документ Word и добавим в него символ точки ., теперь чтобы получить код символа Unicode необходимо выделить один символ и затем нажать сочетание клавиш Alt+X.

Код символа точка в формате Unicode 002E. Чтобы указать свойство content в CSS, необходимо просто добавить обратный слэш:

.dropdown-toggle:after { content: "\002E"; }

a)

const n=5;

var a:array [1..n,1..n] of integer;

i,j,k,s:integer;

begin

writeln('Массив: ');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(3)-2;

write(a[i,j]:4);

end;

writeln

end;

for j:=1 to n do

begin

k:=0;

for i:=1 to n do

if a[i,j]<0 then k:=k+1;

if k=n then

begin

s:=s+1;

if s=1 then write ('Номера столбцов, все элементы которых отрицательны: ');

write (j,' ')

end

end;

if s=0 then write ('Столбцов, все элементы которых отрицательны - нет');

end.

б)

const n=5;

var a:array [1..n,1..n] of integer;

i,j,kp,ko:integer;

begin

for i:=1 to n do

for j:=1 to n do read (a[i,j]);

writeln('Массив: ');

for i:=1 to n do

begin

for j:=1 to n do write(a[i,j]:4);

writeln

end;

for j:=1 to n do

begin

ko:=0;

kp:=0;

for i:=1 to n do

begin

if a[i,j]<0 then ko:=ko+1;

if a[i,j]>0 then kp:=kp+1

end;

if ko=n then writeln ('В ',j,' столбце все элементы отрицательные');

if kp=n then writeln ('В ',j,' столбце все элементы положительные')

end

end.