процедуры и функции

[nolx]

1.вычисление количества положительных элементов в четных строках матрицы через функцию

2.вычисление сумм положительных и отрицательных элементов и количество отдельных элементов матриц через процедуру

!

Предупреждение:

И зачем две одинаковых до слова темы с разными названиями?

Плюшка выдана, лишнее удалено...

Изменено 30 ноября, 2010 пользователем Yezhishe

[Тролль]

nolx:

Во-первых, для этого есть специальная "важная" тема "Заказы "Сделайте все за меня"".

Во-вторых, надо указывать, на каком языке.

По 1-й части для Turbo Pascal:

function np(a:array of integer; m:integer):integer;   var s,i:integer; begin s:=0; for i:=0 to m-1 do if a[i]>0 then inc(s); np:=s end;const m=10; n=10;var a:array[1..m,1..n]of integer; i,j,s:integer;beginrandomize; for i:=1 to m do for j:=1 to n do a[i,j]:=random(199)-99; writeln;for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln end;s:=0; for i:=1 to m div 2 do s:=s+np(a[2*i],n); writeln; writeln('amount=',s); readlnend.

По второй части, что такое "количество отдельных элементов матриц", я не понял.

Изменено 30 ноября, 2010 пользователем Тролль