Const
n=10;
m=5;
var
s:real;
i,j:integer;
a:array[1..m,1..n]of real;
begin
writeln('Исходный массив:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:6);
end;
writeln;
end;
s:=a[1,1];
for i:=1 to m do
for j:=1 to n do a[i,j]:=a[i,j]/s;
writeln('Преобразованный массив:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:6:3);
writeln;
end;
<span>end.</span>
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end
Бредовый конечно же вопрос, но мой ответ будет НЕТ
Ответ: Всего 5 пунктов
1)прием и первичную обработку документов→
2)предварительное рассмотрение и распределение документов→
3)регистрацию→
4)рассмотрение документов руководством→
5)передачу на исполнение.