Const
N = 10;
Var
A:array[1..N,1..N] of integer;
i,j,M:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
M:=1;
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ');
if A[i,M]<A[i,j] then M:=j;
End;
WriteLn(' Max = ',A[i,M]);
End;
WriteLn('Минимумы:');
For j:= 1 to N do
Begin
M:=1;
For i:= 1 to N do
if A[i,j]<A[M,j] then M:=i;
Write(A[M,j]:3,' ');
End;
End.
Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.
Вывод на печать вещь довольно простая Ctrl+P и сразу идет отправка на печать на принтер по умолчанию
Но часто может выйти не то что хотелось бы, потому перед печатью надо настроить какой результат мы хотим видеть на листе. Самое обычное это отступы, альбомная или портретная, размер бумаги, двусторонняя печать или нет, сколько листов на листе
обычно у каждой программы из которой идет печать есть некоторые настройки перед печатью и еще отдельно есть свойства принтера. Если во всем этом покопаться то часто можно достигнуть желаемого результата
Если же речь идет о профессиональной подготовке к печати то используются программы типа Publisher, Аdobe Illustrator и тп
Все слова в этом языке имеют вид aba, где a, b - неодинаковые буквы.
На место a можно поставить букву 31 способом, на место b - 30 cпособами (нельзя ставить букву, которая уже стоит на месте a). По правилу умножения получается не более 31 * 30 = 930 комбинаций.
Проще в виде скриншота тебе это дать, форматирование плывет