Delphi - Очень срочно нужна помощь!!!!По возможности отблагодарю!!!!

[xden777]

Здравствуй!!!!Я на экзамене по АЯИП.

Горю!!!До конца экзамена 2 часа!Нужно на паскале составить прогу:

Для четвертого столбца матрицы А(10*6)вычислить сумму и произведение положительных элемен-в,а для 7-ого столбца B(5*8)-

сумму и произведение элементов,больших пяти....

Если окажите помощь готов пополнить после экзамена баланс Вашего мобильника и предложить подработку....

Горю!!!!Время до конца 2-ЧАСА!!!

[BlackEric]

Винды нет, так что на пальцах.



Используешь вложенные циклы

var

i,j,s,p:integer;

A:array[1..10,1..6] of integer;

begin

s:=0;p:=1;



for i:=1 to 10 do //строки

for j:=1 to 6 do //столбцы

begin

read(A[i,j]);//ввод данных

if j=4 // номер столбца

then

if A[i,j]>0

then // элемент положительный

begin

s:=s+A[i,j];

p:=p*A[i,j];

end;

end;

writeln('p='+p);

writeln('s='+s);

end.



Для второй матрицы так аналогично...

Если что пиши. Я пока здесь, но винды нет только по памяти



var

i,j,s,p:integer;

B:array[1..5,1..8] of integer;

begin

s:=0;p:=1;



for i:=1 to 5 do //строки

for j:=1 to 8 do //столбцы

begin

read(B[i,j]);//ввод данных

if j=7 // номер столбца

then

if B[i,j]>5

then // элемент положительный

begin

s:=s+B[i,j];

p:=p*B[i,j];

end;

end;

writeln('p='+p);

writeln('s='+s);

end.



Вторая программа

[xden777]

К сожалению в аудитории меня спалили,но удов. поставили...

BlackEric, свой контакт кину в личку.

Спасибо.

Тема закрыта.