1.
Var s:string;
z,i,k:integer;
Beginz:=0;
write('Введите строку: ');
readln(s);
k:=0;
For i:=1 to Length(s) do
if s[i]='!' then
Beginfor i:=1 to Length(s) do
if s[i] = '!' then begin
write(i);exit;
end;if k<>0 then
writeln('Порядковый номер первого восклицательного знака = ', z);
if k = 0 then writeln('Восклицательных знаков нет!');
readln;
int min = arr[0];
int min_ind = 0;
for(int i=1;i<arr.Length;i++)
{ if (arr[i] < min)
{
min = arr[i];
min_ind = i;
}
}
for (var i = min_ind+1; i < arr.Length; i++)
arr[i] = 0;
for (var i =0; i < arr.Length; i++)
Console.Write(arr[i]+" ");
Console.ReadKey();