end;
mas[ 1 ] := minus;
writeln();
Объяснение:
Чтобы поставить полученное значение на первое место необходимо просто обратиться к первому элементу массива и присвоить ему необходимое значение. Ещё у тебя там ошибка, в условии написано, что элементов 10, а ты создаешь массив только для 5. Исправь
mas: array[1..10] of integer;
Так же исходя из этого, необходимо подправить и тело цикла, потому что остальные 5 элементов останутся не заполненными.
for i:= 1 to 10 do begin
Но в задании так же написано, что нужно посчитать количество отрицательных элементов в первой половине массива. То есть необходимо немного подкорректировать условие подсчета.
if ( mas[ i ] < 0) and ( i <=5 ) then
Вроде всё. Если что-то не понятно, оставь комментарий
Программа:
Pascal:
var
y,x: real;
begin
y := power((x + 1), 2) + 3*(x*x + 1);
y := (x*x / 2) + power((x*x/2), 2) - 7;
y := 3/sqrt(x) + (5 * sqrt(abs(x - 10)))/4;
end.
Первое - это: y = (x + 1)^2 + 3(x^2 + 1)
Второе - это: y = (x^2/2) + (x^2/2)^2 - 7
Третье - это: y = (3/√x) + (5*√(|x - 10|)/4