Если ты сам это сделал, сам придумал
Например, этот ответ является авторским, потому что я сам его придумал и написал, и чтобы кто-то его скопировал он должен спросить разрешение у меня
Var n,k:integer;
begin
write('N = ');
readln(n);
k:=(n+1) div 2;
writeln('Количество парт может быть от ',k,' (min) до ', n,' (max)');
end.
Пример:
N = 9
Количество парт может быть от 5 (min) до 9 (max)
В 6789 цифра 6 имеет числовой эквивалент 6 * 10 ^ 3 = 6000 (шесть тысяч)
<span>в 3650 - 6 * 10 ^ 2 = 600 </span> (шесть сотен)
<span>в 16 - 6 * 10 ^ 0 = 6 </span> (шесть единиц)
в 69 - 6 * 10 ^ 1 = 60 (шесть десятков)
Третое предложение я считаю так
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.