Using System; namespace СиШарп { class Program { static void Main(string[] args) { Console.Write("N = "); int N = int.Parse(Console.ReadLine()); Console.Write("A({0}):",N); int[] A = new int[N]; Random RND = new Random(); for (int i = 0; i < N; i++) { A[i] = RND.Next(-N,N+1); Console.Write(" {0}",A[i]); } for (int i = N - 1; i >= 0 && A[i] < 0; i--) ; int L = 0, j = N; while (j > 0) if (A[--j] > 0) L++; else if (L < 2) L = 0; else break; for(int i = j + L + 1; i < N; i++) A[i - L] = A[i]; Console.Write("\nA({0}):",N-L); for (int i = 0; i < N - L; i++) Console.Write(" {0}",A[i]); Console.ReadKey(); } } }
Procedure TForm1.btnRunClick(Sender: TObject); var s: string; sum, x, i, count: integer;
begin s := edtVvod.Text; lblVyvod.Caption := FloatToStr(0);
sum := 0; count := 0;
for i := 1 to length(s) do begin if i mod 2 = 0 then Continue; x := StrToInt(s[i]); if x mod 2 = 1 then Continue; sum := sum + x; count := count + 1; end;
if count > 0 then lblVyvod.Caption := FloatToStr(sum / count); end;
убрала кое что ненужное отформатировала увы проверить негде, так что на ваш страх и риск. Логика правильная
а/б+ с/д = а*д/б*д + с*б/д*б = (ад+сб)/бд
13/27 + 12/27 = (13+12)/27 = 25/27