ХОР КАЧ ПОМОГИ ПОЖАЛУЙСТА НЕЧЕГО НЕ МОГУ ПОДЕЛАТЬ!
ПУНКТЫ В И Г НЕ ФУРЫЧАТ пожалуйста помоги аа
С меня как всегда!




{Дан вектор C[1:25]
а) найти сумму нечетных элементов.
б) найти произведение этой суммы на mах элемент вектора.
в) преобразовать вектор в матрицу
г) найти сумму между последним элементом и минимальным элементом вектора}
program chetyre;
uses crt;
const n=25;nj=5;ni=5;
var
j,i,o,sum,max,min,p:integer;
m:array[1..ni,1..nj] of integer;
a:array[1..n] of integer;
begin
writeln('Массив:');
for o:= 1 to n do
begin
a:=random(10);
write(a:3);
end;
for o:= 1 to n do
begin
if (a mod 2) <> 0 then
begin
sum:=sum+a;
end;
end;
writeln;
writeln('Сумма всех нечетных элементов: ',sum);
max:=a[1];
for o:= 1 to n do
begin
if max < a then
begin
max:=a;
end;
end;
p:=sum*max;
writeln('Максимальный элемент массива: ',max);
writeln('Произведение суммы на максимальный элемент массива: ',p);
writeln('Матрица:');
for i:= 1 to ni do
begin
for j:=1 to nj do
begin
m[i,j]:= a;
write(m[i,j]:3);
end;
writeln;
end;
min:=a[1];
sum:=0;
for o:= 1 to n do
begin
if min > a then
begin
min:=a;
writeln(o);
end;
end;
writeln('Минимальнй элемент вектора ',min);
for i:= min to n do
begin
sum:=sum+a;
end;
Writeln('Сумма между последним элементом и минимальным элементом вектора: ',sum);


end.