Паскаль. Процедуры

[AndrewPl]

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

2. Передачу массива в процедуру выполнить полностью.
Для заданных квадратных матриц X (5 * 5) и F (4,4) найти суммы и произведения элементов, расположенных ниже побочной диагонали.

3. Передачу массива в процедуру выполнить по строкам или по колонкам .
В каждом столбце заданной матрицы М (5,5) определить количество парных элементов

[ROMA2PVT]

-I-

sum:=0;
for i:=1 to n do
if not odd(i) then
begin
Sum:=sum+mas[i];
write(mas[i]:3);
end;
writeln('Сумма элементов с чётными индексами: ',sum);

-II-

sum:=0;
  pr:=1;
  For i:=1 to n do
  begin
   For j:=1 to m do
   if (n-j+1)<i then
  begin
   sum:=sum+mas[i,j];
   pr:=pr*mas[i,j];
   write(mas[i,j]:3);
   end;
 writeln;
 end;
writeln;
writeln('Сумма элементов: ',sum,'; Произведение: ',pr);

[AndrewPl]

это же не через процедуру..

[Dalef]

А кто мешает взять код ROMA2PVT и добавить в процедуру? Вот так, например:

procedure Proc1;
var
  sum, i: integer;
begin
sum:=0;
for i:=1 to n do
if not odd(i) then
begin
Sum:=sum+mas[i];
write(mas[i]:3);
end;
writeln('Сумма элементов с чётными индексами: ',sum);
end;

[ROMA2PVT]

Dalef а он наверное привык что ему прогу полностью пишут сразу.

[AndrewPl]

да ладно.........

[ROMA2PVT]

А задание случайно не перевод с украинского языка?

[AndrewPl]

А какая разница?

[Grag]

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

1. Передачу массива в процедуру выполнить поэлементно .

Извиняюся! Но ни в одном примере не нашел этого...

[AndrewPl]

И на том спасибо)