Контрольная работа: Выражения и условный оператор IF. Операторы циклов. Массивы и подпрограммы

for i:=1 to n do

write (v[i]:0:digits,' ');

writeln ;

write ('Сумма компонентов вектора: ');

writeln (s:0:digits);

end ; {vector_v}

begin

input_matrix(m,n);

writeln ('Первоначальнаяматрица');

output_matrix(m,n);

change_matrix(m,n);

writeln ('Новаяматрица');

output_matrix(m,n);

vector_v(m,v,n);

readln ;

end .

Тестирование программы:

Введите размер квадратной матрицы n

не менее 2 и не более 10:

3

Введите левую a и правую b границы

диапазона значений компонент матрицы:

a = -5

b = 5

Первоначальная матрица

4.326 -3.582 -2.539

-2.236 -1.983 1.980

2.884 3.248 -1.216

Минимальное значение и индексы: