Nbsp; дано масив а=[[123,15,70,,3,,3]] відобразитт к-сть рядків в масиві і к-сть елементів в третьому і першому рядку​

#include <iostream>

using namespace std;

int sumofdigits(int n);

int main()

{

 int a, b, sa, sb;

 setlocale(LC_ALL, "Russian");

 cout << "Введите 2 натуральных числа: ";

 cin >> a >> b;

 sa = sumofdigits(a);

 sb = sumofdigits(b);

 cout << "\nСумма цифр первого числа: " << sa;

 cout << "\nСумма цифр второго числа: " << sb;

 if (sa > sb)

   cout << "\nСумма цифр первого числа больше, чем второго";

 else if (sa < sb)

   cout << "\nСумма цифр второго числа больше, чем первого";

 else if (sa == sb)

   cout << "\nСуммы цифр чисел равны";

}

int sumofdigits(int n) {

 int sum = 0;

 while (n != 0) {

   sum += n % 10;

   n /= 10;

 }

 return sum;

}

1) в 4 и 6 строках заменить кавычки на одинарные (те которые там где русская буква Э. PascalABC другие не понимает, другие паскали тоже могут ругаться.

2) строка 8 оператор FOR требует перечисляемый тип например integer, так что чтобы все заработало придется переменные x, m, n объявить как integer (var x, m, n : integer)

3) в десятой строке исправить название функции возведения в квадрат на sqr

4) функция sin() считает в радианах. Если данные у вас в градусах то их нужно перевести в радианы.

5) не понятно для чего используется цикл если будет выведено только последнее вычисленное значение. Возможно в цикле пропущен блок BEGIN END;

исправленная програма будет выглядеть примерно так:

Program one;

Var y : real;

   x, n, m : integer;

Begin

   Write('введите число m ');

   Readln(m);

   Write('введите число n ');

   Readln(n);

   For x := m to n do begin

       y := sin(degToRad(4*sqr(x)));

       Writeln(y);

   end;

End.

ну и плюс поправил отступы и стилистические ошибки не влияющие на результат...