title

[KateMM]

В матрице найти сумму номеров строк, все элементы которых четные, умножить элементы указанного столбца на это число..

[KateMM]

срочно, помогите!

[Mad_Cat]

Да, Мэм! Будет выполнено! Разрешите приступать?

[KateMM]

ой, пожалуйста!

[KateMM]

очень срочно надо...не получается ничего((( а уже утром сдавать....

[Mad_Cat]

{В матрице найти сумму номеров строк,
все элементы которых четные,
умножить элементы указанного столбца на это число..}
uses crt;
var Mat:array[1..100,1..100] of integer;
i,j,k,s,p:integer;
n,m:integer;
begin
Randomize;
write('n=');
readln(n);
write('m=');
readln(m);
s:=0;
For i:=1 to n do
begin
k:=0;
For j:= 1 to m do
begin
MaT[i,j]:=random(21)-10;
write(Mat[i,j]:6);
if  not odd(Mat[i,j]) then inc(k);
end;
if k=m then inc(s,i);
writeln;
end;
writeln('Summ # Row=',s);
write('N column =');
readln(P);
For i:=1 to n do
begin
For j:= 1 to m do
begin
if j=p then MaT[i,j]:=mat[i,j]*s;
write(Mat[i,j]:6);
end;
writeln;
end;
end.

[KateMM]

вот я начала...дальше не знаю..
Program matrix;
Uses crt;
Var mas:array[1..10,1..10] of integer;
v:array[1..10] of integer;
i,j,n,m,k,s:integer;
t:boolean;
begin
clrscr;
randomize;
Write('Vvedite kolichestvo strok: ');
Readln(n);
Write('Vvedite kolichestvo stolbsov: ');
Readln(m);
for i:=1 to n do begin
for j:=1 to m do begin
mas[i,j]:=random(58);
Write(mas[i,j]:3);
end;
Writeln;
end;
Writeln;

for i:=1 to n do
begin
t:=true;
for j:=1 to m do
if odd(mas[i,j]) then
begin
t:=false;
break;
end;
if t then
write('Stroka c chetnimi elementami=',i:3);
end;
Writeln;

write('Symma nomerov strok= ',s);
end.

[KateMM]

Спасибо огромное! Вы меня спасли!
Можно к вам обращаться с последующими вопросами? Если да, то как найти вас?