Помогите написать 2 программы на паскале №13,14 пожалуйста
Помогите написать 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.
Не нашли ответ?
Похожие вопросы