Массив.

[man-utd-]

Дан целочисленный массив A(10). Получить последовательность В(10), которая отличается от исходной тем, что все нечетные элементы удвоены.
Я вот так что то делал, но прога не работает

Program Laba_4_3;
uses crt;
type T=array [1..10] of real;
var a,c:T; i:integer; min:real;
begin clrscr;
writeln('Vvedite elementy massiva');
for i:=1 to 10 do
read (a[i]);
for i:=1 to 10 do
read (c[i]);
for i:=1 to 10 do begin
if a[i] mod 2=1 then c[i]=2*a[i];
writeln('c[ ', i,']=',c[i]); end;
readln;
readln;
end.

И еще вопрос на счет подпрограммы функций.
Найти сумму наименьших элементов матриц С(9) и D(10).
Я вот ее сделал, работает правильно, но не через подпрограмму функций)
Как в пример прикрепить подпрограмму функции?

program primer_6;
uses crt;
var c:array [1..9] of integer;
    d:array [1..10] of integer;
    f:real;
    cmin,dmin,i:integer;
begin
clrscr;
for i:=1 to 9 do read(c[i]);
for i:=1 to 10 do read(d[i]);
cmin:=1;
for i:=1 to 9 do
 if (c[i]<cmin) then cmin:=c[i];
dmin:=1;
for i:=1 to 10 do
 if(d[i]<dmin) then dmin:=d[i];
f:=cmin+dmin;
writeln(f);
end.

[Pein95]

1.

program Project1;

{$APPTYPE CONSOLE}

var
a:array [1..10] of integer;
b:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);

for i:=1 to 10 do
b[i]:=a[i];

for i:=1 to 10 do
if b[i] mod 2<>0 then
b[i]:= b[i]*2;

for i:=1 to 10 do
writeln(b[i]);
readln;

end.

[Pein95]

тото код что здесь был фиговый

[Базиля]

Pein95
не правильно условие поставил для выявления минимума. И не выводишь сумму. Подкорректировал немного программу.

program Project1;

function sum(x,y:integer):integer;
begin
sum:=x+y;
end;
var
c:array [1..9] of integer;
d:array [1..10] of integer;
i,min,min1:integer;
begin

for i:=1 to 9 do
begin
write('c[',i,']=');
readln(c[i]);
end;
min:=c[1];

for i:=1 to 10 do
begin
write('d[',i,']=');
readln(d[i]);
end;
min1:=d[1];

for i:=1 to 9 do
if min>c[i] then
min:=c[i];

for i:=1 to 10 do
if min1>d[i] then
min1:=d[i];

writeln('сумма минимальных эелемнтов=',sum(min,min1));
end.

[man-utd-]

Pein95, Базиля
Большое Вам спасибо. Премного благодарен.