Помощ на Паскал

[LiLiLiTa]

Спешно ми трябва да се напише програмка на Паскал... Задачата е елементарна, но аз не мога да я напиша, надявам се някой тук да помогне...

Ето я: http://img2.pict.com/f9/94/e5/5d0d00...00/zadacha.png

[Usera]

Колко даваш?
ПП и не се разбра каква е задачата !

[LiLiLiTa]

оправих линка. давам много...

[LiLiLiTa]

айде де никой ли няма да помогне

[Black Adder]

Не мисля, че насила са те карали да се записваш да учиш. Тук ще ти напишат програмата, а задачите по математиките кой ще ти ги решава?
Извинявай, но ако такава елементарна задача не можеш да напишеш, по-добре иди да учиш Ветеринарна медицина.
Някак си, не ми се щеше да ти го казвам точно аз това, но както виждаш - друг във форума не смее.
Писал съм на разни познати програми, и после като ги накарат да ги обяснят - мигат на парцали и съответно си отнасят двойката, че и вече под лупа ги гледат.

[LiLiLiTa]

Откъде знаеш какво уча Нито имам математика, нито решавам задачи. Най-малко пък някой ще ме кара да обяснявам задачата.

Щом съм преценила, че мога да помоля за помощ тук - значи не е проблем.

[LiLiLiTa]

поствам код, който май трябва само да се преправи с числата, зададени в задачата.

Program Zad;
type
m1=array[1..10,1..10] of -999..999;
m2=array[1..20,1..20] of -999..999;
m3=array[1..30,1..30] of -999..999;
var
br1,br2,br3:integer;
a:m1;
b:m2;
c:m3;
procedure out;
begin
writeln('uslovie.....avtor');
end;
procedure Init(var m:m1;var p:m2;var q:m3);
var
i,j:integer;
begin
writeln('masiv 10x10');
for i:=1 to 10 do
for j:=1 to 10 do
begin
write('a[',i,',',j,']=');
readln(m[i,j]);
end;
writeln('masiv 20x20');
for i:=1 to 20 do
for j:=1 to 20 do
begin
write('b[',i,',',j,']=');
readln(p[i,j]);
end;
writeln('masiv 30x30');
for i:=1 to 30 do
for j:=1 to 30 do
begin
write('c[',i,',',j,']=');
readln(q[i,j]);
end;
end;
procedure out2;
var
i,j:integer;
begin
writeln('masiv 10x10');
for i:=1 to 10 do
for j:=1 to 10 do
begin
writeln('a[',i,',',j,']=',a[i,j]);
end;
writeln('masiv 20x20');
for i:=1 to 20 do
for j:=1 to 20 do
begin
writeln('b[',i,',',j,']=',b[i,j]);
end;
writeln('masiv 30x30');
for i:=1 to 30 do
for j:=1 to 30 do
begin
writeln('c[',i,',',j,']=',c[i,j]);
end;
end;
procedure sr(var br1,br2,br3:integer);
var
i,j,r,a1,b1:integer;
begin
write('granicite: ');
readln(a1,b1);
write('r=');
readln(r);
for i:=1 to 10 do
for j:=i to 10 do
if (a[i,j]>a1) and (a[i,j]<b1) and (a[i,j] mod r=0) then
br1:=br1+a[i,j];
for i:=1 to 20 do
for j:=i to 20 do
if (b[i,j]>a1) and (b[i,j]<b1) and (b[i,j] mod r=0) then
br2:=br2+b[i,j];
for i:=1 to 30 do
for j:=i to 30 do
if (c[i,j]>a1) and (c[i,j]<b1) and (c[i,j] mod r=0) then
br3:=br3+c[i,j];
end;
procedure out3;
begin
writeln('sr aritmet. ot A 10x10 e: ',br1/(((10*10)/2)-10):6:2);
writeln('sr aritmet. ot B 20x20 e: ',br2/(((20*20)/2)-20):6:2);
writeln('sr aritmet. ot C 30x30 e: ',br3/(((30*30)/2)-30):6:2);
end;
begin
out;
init(a,b,c);
out2;
sr(br1,br2,br3);
out3;
readln
end.

[LiLiLiTa]

може да се заключва темата.

[georgiev_85]

обясни плс, питам от любопитство, какво е второстепенен диагонал?

[Bibi]

Този, който започва от горния десен ъгъл (североизток) и завършва долу ляво (югозапад)