Помогите написать 2 программы на паскале №13,14 пожалуйста
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
