autumn_orion
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
red2003
Цитата:| М2-Колличество положительных элементов матрицы! |
тогда так:
program test1;
const k=3;
type matrix=array[1..k,1..k] of double;
procedure init(var a:matrix);
begin
a[1,1]:=3.12;
a[1,2]:=2.14;
a[1,3]:=6.18;
a[2,1]:=8.99;
a[2,2]:=9.00;
a[2,3]:=14.77;
a[3,1]:=15.6;
a[3,2]:=9.8;
a[3,3]:=100.0;
end;
function max_str_num(const a:matrix):integer;
var i,j:integer;
maxelem:real;
begin
maxelem:=a[1,1];
max_str_num:=1;
for i:=1 to k do
for j:=1 to k do
if (a[i,j]>maxelem) then
begin
maxelem:=a[i,j];
max_str_num:=i;
end;
end;
function M2_val(const a:matrix):integer;
var i,j,count:integer;
begin
count:=0;
for i:=1 to k do
for j:=1 to k do
if (a[i,j]>0) then
count:=count+1;
M2_val:=count;
end;
function Y(const a:matrix; const strnum,M2:integer):real;
var i:integer;
tmpY:real;
begin
tmpY:=0;
for i:=1 to k do
tmpY:=tmpY+a[strnum,i]+a[i,strnum];
Y:=tmpY*M2/strnum;
end;
{main}
var matr:matrix;
i,j:integer;
begin
init(matr);
i:=max_str_num(matr);
j:=M2_val(matr);
writeln ('result=',Y(matr,i,j));
end.
|
(то что это язык программирования, я знаю...) 
Привет народ!!! i`am need help!!! Блин задачки нада сделать а я впаскале не силён...а уже нада скоро сдать их.....помогите плзззз! 
Привет народ!!! i`am need help!!! Блин задачки нада сделать а я впаскале не силён...а уже нада скоро сдать их.....помогите плзззз! 
