При каком наименьшем введенном числе d после выполнения программы будет напечатано 63? var n, s, d: integer; begin readln(d); n : = 3; s : = 57; while s < = 1200 do begin s : = s + d; n : = n + 4 end; write(n) end. объясните,

Для того чтобы число n было 63, нужно пройти (63 - 3) / 4 = 15 итераций цикла.
Далее находим число d, при котором это будет выполнено:
(1200 - 57) / 15 + 1 = 77

Int[] arr = new int[] { 3, 2, 1, 5, 6 };
            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();

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969