Все сделать надо в PascalABC.Net 1)С цикла ввести 660 звёздочек
2)Ввести массив из 10 элементов и найти максимум

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]<a[k] then k:=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.

1,2 задание

var
a:array [1..9] of real;
i,k:integer;
j:real;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=(random(410)+100)/10;
write(a[i],' ');
end;
writeln;
writeln('Массив после увелечения минимального элемента на 100:');
k:=1;
for i:=2 to 9 do
if a[i]<a[k] then k:=i;
a[k]:=a[k]+100;
for i:=1 to 9 do
write(a[i],' ');
writeln;
writeln('Массив после престановки максиального элемента с первым:');
j:=a[1];
a[1]:=a[k];
a[k]:=j;
for i:=1 to 9 do
write(a[i],' ');
writeln;
end.

3 задание
var
a:array [1..10] of integer;
i,mn,mx:integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
readln(a[i]);
mn:=1; mx:=1;
writeln('Массив');
for i:=1 to 10 do
begin
if a[i]<a[mn] then mn:=i;
if a[i]>a[mx] then mx:=i;
write(a[i],' ');
end;
i:=a[mx];
a[mx]:=a[mn];
a[mn]:=i;
writeln;
writeln('Массив после престановки:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.