Если не видно на скриншоте
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.
СИСТЕМА
жен., греч. план, порядок расположенья частей целого, предначертанное устройство, ход чего-либо, в последовательном, связном порядке. Солнечная система, солнечная вселенная. Ботаническая система Линея, распределенье, распорядок. Система ученья, воспитанья, порядок образ, род. Систематичное, -ческое ученье, стройное, порядочное, порядливое, последовательное, разумное, правильное, обдуманное, постепенное. Систематика жен. научное разъясненье систем. Систематик, изобретатель новой системы или охотник до строгих, последовательных порядков.
var
n : integer;
a : integer;
s : real;
begin
write('введите количество чисел ');
readln(n);
for var i := 1 to n do begin
write(i,'-е число равно = ');
readln(a);
s += a;
end;
writeln('среднее значение равно ', s/n);
end.
числа вводим вручную...