"justify">}  
 void vivod (int * p, int n, char sim) / / підпрограма для виведення масиву 
  {
  int i;// Номер елементу масиву 
  printf (Rus («Масив% c n»), sim); 
  for (i=0; i 
 printf ("% 2d», * (p + i)); (« n"); 
 } vvod (int * p, int * n, char sim) / / подпрограммa для введення масиву 
  {i;// Номер елементу в масиві (Rus (« nВведіте кількість елементів у масиві% c n»), sim); («% d», n);// Введення запланованого елементів у масиві 
  puts (Rus («Введіть масив»)); (i=0; i <* n; i + +) / / ціклдлявводмассіва 
  {printf ("% c [% d] =», sim, i); («% d», p + i); } 
 } kol (int * p, int n) 
  {
  int i;// Номер елементу в масиві 
  int f=0;// Початкове значення кількості позитивних елементів у масиві 
  for (i=0; i 
 if (* (p + i)> 0) / / умова для визначення знака елемента в масиві 
  f + +;// Зміна значення кількості позитивних елементів масиву 
  return (f); } / / Повернення кількості позитивних елементів у програму 
   Додаток В  
    Лістинг рішення задачі 3  
  void pp3 () / / виклик підпрограми для вирішення завдання 3 
  {
				
				
				
				
			  int A [20], B [20], D [20], / / ??вихідні масиви 
  p, q, c, / / ??коефіцієнти функції 
  n, m, k;// Кількість рядків у матрицях 
  float x1, x2, des;// Коріння і дискримінант функції (Rus (« tРешіть рівняння px ^ 2 + qx + c=0, де p, q і з - суми елементів, що лежать вище головної діагоналі і на ній, в матрицях А, В і D, відповідно. »));// Вивід умови задачі 
  getch ();// Очікування натискання будь-якої клавіші 
  system («cls»);// Очищення екрана 
  vvod2 (A, & n, «A»);// Введення масиву А 
  vvod2 (B, & m, «B»);// Введення масив В 
  vvod2 (D, & k, «D»);// Введення масиву D 
  vivod2 (A, n, «A»);// Вивід масиву А 
  vivod2 (B, m, «B»);// Вивід масиву В 
  vivod2 (D, k, «D»);// Вивід масиву D 
  p=sum (A, n);// Визначення коефіцієнта функції 
  q=sum (B, m);// Визначення коефіцієнта функції 
  c=sum (D, k);// Визначення коефіцієнта функції 
  fun (p, q, c, des, x1, x2);// Обчислення коренів і дискриминанта функції 
  if (des> 0) / / умова для виведення результатів 
  printf (Rus («Корінням рівняння% d * x ^ 2 +% d * x +% d=0 є% .2 f і% .2 f n"), p, q, c, x1, x2); 
  else if (des == 0) 
  printf (Rus («Коренем рівняння% d * x ^ 2 +% d * x +% d=0 є% .2 f n"), p, q, c, x1); 
  else printf (Rus («Корені рівняння% d * x ^ 2 +% d * x +% d=0 комплексні (немає дійсних коренів) n"), p, q, c)...