Это решить : разработать схему алгоритма и написать программу a) вычисления среднего арифметического четырех чисел; b) вывода вашего роста , возраста и веса на экран4 c) вычисление значения корней квадратного уравнения выполнить трассировку программ.

A) Сложи все 4 числа, затем сумму раздели на 4. ответ на экран
б) Прочитай рост сохрани в перемнную выведи на экран. То же самое для веса и возраста
с) Ты можешь использовать теорему Виета или же вычислять по формуле через дискриминант. Не забудь проверить существуют ли корни у этого уравнения.

//Описание добавить не вышло на сайт, посему - в файле

#include "stdafx.h"
#include <conio.h>

void swap(short &a, short &b) {
    short c = a;
    a = b;

    b = c;
}

void sort(short &a, short &b, short &c)
{
    short min = a,
        max = c;
    if (min > b) min = b;
    if (min > c) min = c;
    if (max < a) max = a;
    if (max < b) max = b;
    b = a + b + c - min - max;
    a = min;
    c = max;
}

int main()
{
    short a1, b1, c1, a2, b2, c2;
    scanf_s("%hd %hd %hd", &a1, &b1, &c1);
    scanf_s("%hd %hd %hd", &a2, &b2, &c2);

    sort(a1, b1, c1);
    sort(a2, b2, c2);

    if ((a1 == a2) && (b1 == b2) && (c1 == c2))
        printf("Boxes are equal");
    else
        if ((a1 <= a2) && (b1 <= b2) && (c1 <= c2))
            printf_s("The first box is smaller than the second one");
        else
            if ((a2 <= a1) && (b2 <= b1) && (c2 <= c1))
                printf_s("The first box is larger than the second one");
            else
                printf_s("Boxes are incomparable");

    _getch();
    return 0;
}

Program a;  // имя программы
var n:string; // четырехзначное число будем вводить с клавы
var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234
var sa: double; // среднее арифметическое
Begin // начало
Read( n ); // вводим с клавиатуры число N
Val( n[1], n1, err ); // первая цифра числа N
Val( n[2], n2, err ); // вторая цифра числа N
Val( n[3], n3, err ); // третья цифра числа N
Val( n[4], n4, err ); // четвертая цифра числа N
sa := ( n1 + n2 + n3 + n4 ) / 4;  // находим среднее арифметическое
if ( sa / 2 = Trunc( sa / 2 ) ) and ( sa > 5 ) then Write( sa ); // если оно четное и больше пяти - выдаем значение на экран
End.  // конец