Вычеслить произведение элементов с парными индексами заданых массивов D(18),E(14),G(15),и вывести их отде

[AndrewPl]

Вычеслить произведение элементов с парными индексами заданых массивов D(18),E(14),G(15),и вывести их отдельно на экран

[RUSt88]

обращайтесь, выполню

[ROMA2PVT]

d:=1;
 for i:=1 to 10 do
 begin
 if not odd(i) then d:=d*mas[i];
 end;

И чаво?Незнаете как вычислить чтоли

[AndrewPl]

Сообщение от ROMA2PVT

d:=1;
 for i:=1 to 10 do
 begin
 if not odd(i) then d:=d*mas[i];
 end;

И чаво?Незнаете как вычислить чтоли

я юрист.....а не программист...

[ROMA2PVT]

type
a=array[1..100] of integer;
var
 i,k,pr:integer;
 d,e,g:a;

 function chetn(mas:a):integer;
 Var k:a;
 begin
 pr:=1;
 for i:=1 to 10 do
 begin
 if not odd(i) then pr:=pr*mas[i];
 end;
 chetn:=pr;
 end;

begin
writeln('Исходный массив D: ');
 randomize;
 for i:=1 to 18 do
  begin
  d[i]:=random(10)-5;
   write(d[i]:3,' ');
  end;
  writeln;
 writeln('Исходный массив E: ');
 for i:=1 to 14 do
  begin
  e[i]:=random(10)-5;
   write(e[i]:3,' ');
  end;
  writeln;
  writeln('Исходный массив G: ');
  for i:=1 to 15 do
  begin
  g[i]:=random(10)-5;
   write(g[i]:3,' ');
  end;
  writeln;
 writeln('Произведение элементов с чётными индексами массива D: ',chetn(d));
 writeln('Произведение элементов с чётными индексами массива E: ',chetn(e));
 writeln('Произведение элементов с чётными индексами массива G: ',chetn(g));
end.

Ну на всю полностью юрист.

[AndrewPl]

Спасибо)))))))
а как будет если через проц?

[ROMA2PVT]

type
a=array[1..100] of integer;
var
 i,k,p2,p,p1:integer;
 d,e,g:a;
begin
writeln('Исходный массив D: ');
  p:=1;
 randomize;
 for i:=1 to 18 do
  begin
  d[i]:=random(10)-5;
   write(d[i]:3,' ');
   if not odd(i) then p:=p*d[i];
  end;
  writeln;
 writeln('Исходный массив E: ');
 p1:=1;
 for i:=1 to 14 do
  begin
  e[i]:=random(10)-5;
   write(e[i]:3,' ');
    if not odd(i) then p1:=p1*e[i];
  end;
  p2:=1;
  writeln;
  writeln('Исходный массив G: ');
  for i:=1 to 15 do
  begin
  g[i]:=random(10)-5;
   write(g[i]:3,' ');
    if not odd(i) then p2:=p2*g[i];
  end;
  writeln;
 writeln('Произведение элементов с чётными индексами массива D: ',p);
 writeln('Произведение элементов с чётными индексами массива E: ',p1);
 writeln('Произведение элементов с чётными индексами массива G: ',p2);
end.

Там неверно.Переделай так.

[AndrewPl]

я в нём не силён,ну это же тож функция...или нет?

[AndrewPl]

чем отличается процедура от функции?как будет подпрограмма через процедуру?

[ROMA2PVT]

Const
n=18;m=14;l=15;
type
a=array[1..100] of integer;
var
 i,k,pr:integer;
 d,e,g:a;

 procedure chetn(mas:a;k:integer);
 begin
 pr:=1;
 for i:=1 to k do
 begin
 if not odd(i) then
 pr:=pr*mas[i];
 end;
 end;

begin
writeln('Исходный массив D: ');
 randomize;
 for i:=1 to n do
  begin
  d[i]:=random(10)-5;
   write(d[i]:3,' ');
  end;
  chetn(d,n);
  writeln;
  writeln('Произведение элементов с чётными индексами массива D: ',pr);
  writeln;
 writeln('Исходный массив E: ');
 for i:=1 to m do
  begin
  e[i]:=random(10)-5;
   write(e[i]:3,' ');
  end;
  chetn(e,m);
  writeln;
  writeln('Произведение элементов с чётными индексами массива E: ',pr);
  writeln;
  writeln('Исходный массив G: ');
  for i:=1 to l do
  begin
  g[i]:=random(10)-5;
   write(g[i]:3,' ');
  end;
  chetn(g,l);
  writeln;
  writeln('Произведение элементов с чётными индексами массива G: ',pr);
  writeln;
end.