Массив и программка.

[Пианист]

№1
В двумерном массиве произвольных чисел А[5.5] найти сумму элементов на диагонали, параллельной главной; а[3.1]+а[4.2]+а[5.3]. Диапозон чисел в матрице от 0 до 80.


№2
Вычислить сколько процентов от А+В-С приходится на:
на А
на В
на С
Решите пожалуйста...

[VintProg]

A - это какой тип?

[Пианист]

Паскаль если ты про это

[ROMA2PVT]

что что!!! наработки свои выкладывайте тогда кто нить и поможет.

[Пианист]

Что??????????

[baster128]

В среде в какой?

[Пианист]

В Паскале

FOR I:=1 TO 5 DO S:=S+M[I,I];
WRITELN('СУММА ГЛАВНОЙ ДИАГОНАЛИ=,S);
READLN;
FOR I:=1 TO 5 DO P:=P+M[I,n+1-i];
WRITELN(СУММА ПОБОЧНОЙ ДИАГОНАЛИ=',P);
READLN;
END.'

Поюочную считает неправильно помогите плиииз....

Побочную* считает неправильно

[baster128]

FOR I:=1 TO 5 DO S:=S+M[I,I];
WRITELN('СУММА ГЛАВНОЙ ДИАГОНАЛИ=,S);
READLN;
Ну по диогали правильно, а что такое побочная диагональ? Ты прости старика дебила.

[Пианист]

Да нормально я сам недавно узнал=)
это диагональ параллельная главной мне нужно посчитать именно M[3,1]+m[4,2]+M[5,3] вот эту диагональ.

А надо было вот так:

s:=o;
For I:=3 to 5 Do
s:=s+M[i,i-2];
writeln('сумма побочной диагонали=',s);
readln;
end.

помогите со 2 задачей..

[Snejnaya]

Вычислить сколько процентов от А+В-С приходится на:
на А
на В
на С

var itog,a,b,c:real;
     proc_a,proc_b,proc_c;
begin
itog:=a+b-c;
proc_a:=a/itog*100;
proc_b:=b/itog*100;
proc_c:=c/itog*100;
writeln("na A ", proc_a);
writeln("na B ", proc_b);
writeln("na C ", proc_c);
end;

А вообще ты уверен, что там не А+В+С?