Question

Помогите написать 2 программы на паскале №13,14 пожалуйста

Answer 1

13)
const n=10;
var l:array[1..n] of integer;   
i,max,k:integer;
begin
for i:=1 to n do begin
l[i]:=random(-5,5);
write(l[i],' ');
end;
max:=l[1]; k:=1;
for i:=1 to n do
if l[i]>max then  begin     
max:=l[i];     
k:=i;   
end;   
writeln; 
for i:=k to n-1 do   
l[i]:=l[i+1]; 
 writeln('Преобразованный массив:'); 
for i:=1 to n-1 do write(l[i],' ');
end.