ПОЖАЛУЙСТА, ПОМОГИТЕ, ПАСКАЛЬ, СРОЧНО! 1. Задать случайным образом 13 элементов числового массива – числа от 10 до 50. Удалить из него: а) 10-ый элемент; б) минимальный элемент. 2. Из символьного массива, 7 элементов которого заданы с клавиатуры, удалить максимальный элемент.

I,k:integer;
begin
randomize;
writeln(Массив:);
for i:=1 to 13 do
begin
a[i]:=random(41)+10;
write(a[i], );
end;
writeln;
writeln(Массив после удаления 10-го элемента:);
for i:=10 to 12 do
a[i]:=a[i+1];
for i:=1 to 12 do
write(a[i], );
writeln;
writeln(Массив после удаления минимального элемента: );
k:=1;
for i:=1 to 12 do
if a[i]for i:=k to 11 do
a[i]:=a[i+1];
for i:=1 to 11 do
write(a[i], );
writeln;
end.

var
a:array [1..7] of char;
i,k:integer;
begin
writeln(Введите массив:);
for i:=1 to 7 do
readln(a[i]);
writeln(Массив);
for i:=1 to 7 do
write(a[i], );
writeln;
writeln(Массив после удаления максимального элемента: );
k:=1;
for i:=1 to 7 do
if a[i]>a[k] then k:=i;
for i:=k to 6 do
a[i]:=a[i+1];
for i:=1 to 11 do
write(a[i], );
writeln;
end.