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
Вроде всё. Если что-то не понятно, оставь комментарий
program Test;
var
a, b, imin, imax, i: Integer;
begin
Write ('Введите 2 числа: ');
ReadLn (a, b);
if a > b then begin
imin := b;
imax := a;
end else if a <= b then begin
imin := a;
imax := b;
end;
if imin <> imax then begin
for i := 1 to imin do
Write (imax, ' ');
end else
WriteLn ('Числа равны');
ReadLn;
end.