Сформировать одномерный массив из элементов, стоящих над главной диагональю матрицы K(m, m Найти сумму элементов этого массива.

// PascalABC.NET

begin

 var m := ReadInteger('m =');

 var K := MatrRandom(m, m, -99, 99);

 K.Println;

 var b := new integer[m * (m - 1) div 2];

 var l := 0;

 for var i := 0 to m - 2 do

   for var j := i + 1 to m - 1 do

   begin

     b[l] := K[i, j];

     Inc(l)

   end;

 b.Println.Sum.Print;

end.

Число считается четным, если делится на 2 без остатка.


#include <iostream>
#include <iomanip>
using namespace std;
bool isEven(int n) {
 return 1 - abs(n % 2);
}
int main() {
 setlocale(LC_ALL, "Russian");
 const int k = 8;
 int a[k], b[k];
 cout << setw(6) <<  "Ai" << " | " << setw(6) << "Bi" << endl;
 cout << "" << endl;
 for (int i = 0; i < k; ++i) {
  //Заполнение случайными числами (они будут каждый раз одними и теми же, ибо генерируются только 1 раз)
  a[i] = rand() % (2 * 25000) - 25000;
  b[i] = rand() % (2 * 25000) - 25000;
  cout << setw(6) << a[i] << " | " << setw(6) << b[i] << endl;
 }
 size_t countA = 0, countB = 0;
 for (int i = 0; i < k; ++i) {
  if (isEven(a[i]))
   countA++;
  if (!isEven(b[i]))
   countB++;
 }
 cout << endl;
 cout << "Количество четных для А:   " << countA << endl;
 cout << "Количество НЕчетных для B: " << countB << endl;
 system("pause");
 return 0;
}

Using System;
public class Test
{
public static void Main()
{
double a,b,c,D;
Console.WriteLine("программа для решения квадратного уравнения вида ax^2+bx+c=0");
Console.Write("введите a: a=");
a=double.Parse(Console.ReadLine());
Console.Write("введите b: b=");
b=double.Parse(Console.ReadLine());
Console.Write("введите c: c=");
c=double.Parse(Console.ReadLine());
Console.WriteLine("решаем уравнение:");
Console.WriteLine(a+"*x^2+("+b+")*x+("+c+")=0");
D=b*b-4*a*c;
Console.WriteLine("D="+b*b+"-"+"("+4*a*c+")="+D);
if (D<0){ Console.Write("D<0 => нет действительных корней");} else if (D>0)
{
Console.WriteLine("D>0 => уравнение имеет 2 действительных корня");
Console.WriteLine("x1="+(-b+Math.Sqrt(D))/(2*a));
Console.WriteLine("x2="+(-b-Math.Sqrt(D))/(2*a));
} else{
Console.WriteLine("D=0 => уравнение имеет 2 совпадающих корня");
Console.WriteLine("x1=x2="+(-b/(2*a)));
}
}
}