Старожил
Сообщения: 433
Благодарности: 63
|
Профиль
|
Отправить PM
| Цитировать
Винды нет, так что на пальцах.
Используешь вложенные циклы
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.
Вторая программа
|
-------
photoua.narod.ru
Последний раз редактировалось BlackEric, 22-01-2008 в 18:44.
Отправлено: 18:30, 22-01-2008
| #2
|