<span>Решение:
</span>program zadacha_1;
const MaxM = 10;
h = 0.2;
type myArray = Array[1..MaxM] of real;
var A:myArray; //Результаты будем записывать сюда
x, y:real;
i: integer;
begin
x := 2;
while ((x >= 2.0) and (x <= 4.0)) do begin
for i:=1 to MaxM do begin
y := 3*cos(x/2)+4;
A[i] := y;
x := x + h;
end;
end;
for i:=1 to MaxM do //Вывод массива
write(A[i]:20);
<span>end.</span>
<span>Home - переводит в начало строки</span>
Микрофончик для записи
Колоночки чтобы слушать
Наушнички тоже
Звуковая карта для качества звука, или точно отображения графиков сигнала, как цифрового так и аналогового.
Остальное по желанию ;)
A) Сложи все 4 числа, затем сумму раздели на 4. Ответ на экран
б) Прочитай рост сохрани в перемнную выведи на экран. То же самое для веса и возраста
с) Ты можешь использовать теорему Виета или же вычислять по формуле через дискриминант. Не забудь проверить существуют ли корни у этого уравнения.