Если не видно на скриншоте
Program v1;
var a:array[0..30]of integer;
i,min,max,n,t:integer;
begin
write('Введите размерность матрицы: '); readln(n);
randomize;
for i:=1 to n do a[i]:=random(100)-50;
write('Значение матрицы: ');
for i:=1 to n do write(a[i]:5); writeln;
max := 1;
min := 1;
t:=0;
for i := 1 to n do
begin
if a[i] > a[max] then
max := i
else
if a[i] < a[min] then
min := i;
end;
for i := 1 to n do
t:=a[min]*a[max];
WriteLn('Среднее арифметическое: ', (a[max] + a[min])/2 ,' ' ,'Произведение максимального элемента на минимальный равно:', t);
end.
8. Что определяет количество индексов массива?
Количество индексов определяет размерность массива. Если есть только один индекс, то это одномерный массив, два - двумерный и т.д.
9. Запишите имя массива, если он имеет элементы mas[1], mas[2], ...
Обращение к элементам одномерного массива имеет вид имя[индекс], значит, массив имеет имя mas
10. Задавая разные значення элементам массива, можно ли изменить размерность массива?
Нельзя. Размерность массива задается заранее, она определяет, как обращаться к элементам массива, и не зависит от их значений.