Напечатайте программу на языке Паскаль нахождения дискриминанта D=b2 – 4ac квадратного уравнения а*х2+b *х+с=0 для конкретных значений коэффициентов а=3, в=5, с=2. Напишите строку вывода результата с комментарием.

ответ: решение ниже

Объяснение:

program ky;

var

a, b, c: integer;

begin

A := 3;

b := 5;

c := 2;

Writeln('ответ ', sqr(b) - 4 * a * c,';');

end.

Ну вот как-то так, если что-то не ясно - спрашивай. Инициализации начальных элементов нет, так что без соответствующей правки она не заработает.

int main() {
    // Something
    int a[n][m];
    // Init

    // Находим максимум
    int im = 0, jm = 0, max = a[0][0];
    for (int i = 0 ; i < n; ++i)
        for (int j = 0; j < m; ++j)
            if (a[i][j] > max) {
                max = a[i][j];
                im = i;
                jm = j;
            }

    // Двигаем максимум вниз
    swapCollumn(a, n, m, im, n-1);
    swapRow(a, n, m, jm, m-1);

}

//Премещаем 2 столбца местами
void swapCollumn(int ** a, int n, int m, int c1, int c2) {
    if (c1 < 0 || c2 < 0 || c1 >= n || c2 >= n)
        return;
    for (int i = 0; i < m; ++i)
        swap(&a[c1][i], &a[c2][i]);
}

//Перемещаем 2 строки местами
void swapRow(int ** a, int n, int m, int r1, int r2) {
    if (r1 < 0 || r2 < 0 || r1 >= m || r2 >= m)
        return;
    for (int i = 0; i < n; ++i)
        swap(&a[i][r1], &a[i][r2]);
}

void swap(int * el1, int el2) {
    int t = *el1;
    *el1 = *el2;
    *el2 = *el1;
}

1)
program average;
var
    i: integer;
    answer, S, tmp: real;
begin
    for i := 1 to 5 do
    begin
        readln(tmp);
        S := S + tmp
    end;
    answer := S / 5;
    writeln(answer)
end.
2)
program equation;
var
    A, B, C, D, x1, x2: real;
begin
    writeln('ввеедите коэфициенты квадратного многочлена');
    readln(A);
    readln(B);
    readln(C);
    if A <> 0 then 
    begin 
    D := B*B - 4*A*C;
    if D < 0 then
        writeln('действительных корней нет')
    else if D = 0 then
    begin
        x1 := -B/(2*A);
        writeln('Единственный корень: ',x1)
    end else
    begin
        x1 := (-B + sqrt(D)) / (2*a);
        x2 := (-B - sqrt(D)) / (2*a);
        writeln('Два корня: ',x1,', ',x2)
    end;
    end
        else writeln('старший коэфициент не может равняться 0')
end.