Дан двумерный массив, который содердит не более 10 строк и 10 столбцов. найти сумму тех элементов, которые больше элемента стоящего на главной диагонали в данной строке.

Input n
dim a(n,n)
dim b(n)
for i=1 to n
  for j=1 to n
    a(i,j)=int(rnd*100)
  next j
next i
for i=1 to n
  b(i)=a(i,i)
next i
s=0: f=1
for i=1 to n
  for j=1 to n
    if a(i,j)>b(f) then s=s+a(i,j)
  next j
  f=f+1
next i
print s

Рассмотрим уравнение вида ax³ + bx = 0
Его также можно представить в виде x(ax² + b) = 0 
Это же равносильно системе
[ x = 0
[ x = ±√( -b / a )
Понятно, что решением этого уравнения, независимо от коэффициентов, будет всегда являться 0. Также уравнение будет иметь и другие корни, при a ≠ 0 и -b / a > 0, это x = ±√( -b / a )

Решение на С
#include <stdio.h>
#include <math.h>
int main() {
    // Ввод данных
    float a, b;
    printf("a = ");
    scanf("%f", &a);
    printf("b = ");
    scanf("%f", &b);
    // Первый корень уравнения
    printf("x1 = 0\n");
    // Второй и третий корни уравнения
    if (a != 0 && -b / a > 0) {
        printf("x2 = %.3f \n", -sqrt(-b / a));
        printf("x3 = %.3f \n", sqrt(-b / a));
    }
    return 0;
}

Задание 2, 1:
program zadacha1;
uses crt;
var x, y: real;
begin
clrscr;
write('enter x: ');
readln (x);
x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы
// переводим из градусов (так как мы задаем значение в градусах) в радианы
y:=sqr(cos(x))+sqr(sin(x))*sin(x);
writeln ('y=', y:0:4);
readkey;
end.

2
program zadacha2;
uses crt;
var y: real;
begin
clrscr;
y:=sqr(sin(pi))+ pi/2;
writeln ('y=', y:0:4);
readkey;
end.

3
program zadacha3;
uses crt;
var x, y: real;
begin
clrscr;
write ('enter x: ');
readln (x);
x:=(x*pi)/180;
y:=sin(x)/cos(x) + 0.25;
writeln ('y=', y:0:4);
readkey;
end.

4
program zadacha4;
uses crt;
var x, y, z: integer;
begin
clrscr;
write ('enter x, z');
readln (x, z);
y:=abs(x)+2*abs(z);
writeln ('y=', y:0:4);
readkey;
end.