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

@kojakin · Регистрация: 09.11.2011

В матрице вычислить произведение тех ее элементов, сумма номеров строки и столбца которых равна числу 5. Заменить на полученное произведение последний столбец матрицы.
Заранее большое спасибо!

@Luciferr · 12.02.2012, 20:45

Pascal

var
a:array[1..10,1..10] of integer;
i,j :integer;
s:integer;
begin
randomize;
for i:=1 to 10 do
 for j:=1 to 10 do
  a[i,j]:=random(10);
for i:=1 to 10 do
begin
s:=1;
 for j:=1 to 9 do
if i+j=5 then
 s:=s*a[i,j];
a[i,10]:=s;
end;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
 write (' ',a[i,j]);
writeln;
end;
readln;
end.

както так. если сумма больше 5 то последняя ячейка заполняется единицей.

@kojakin · 12.02.2012, 22:04 **[ТС]**

спасибо, а можно без раномайза

@Ev[G]eN · 12.02.2012, 22:17

Сообщение от kojakin

спасибо, а можно без раномайза

Pascal

var
a:array[1..10,1..10] of integer;
i,j :integer;
s:integer;
begin
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   begin
    write('a[', i, ', ', j, '] = ');
    readln(a[i, j]);
   end;
  writeln;
 end;
for i:=1 to 10 do
begin
s:=1;
 for j:=1 to 9 do
if i+j=5 then
 s:=s*a[i,j];
a[i,10]:=s;
end;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
 write (' ',a[i,j]);
writeln;
end;
readln;
end.

@Luciferr · 12.02.2012, 22:18

Pascal

var
a:array[1..10,1..10] of integer;
i,j :integer;
s:integer;
begin
randomize;
for i:=1 to 10 do
 for j:=1 to 10 do
begin
 write('a[',i,',',j,'] = ');
readln(a[i,j]);
end;
for i:=1 to 10 do
begin
s:=1;
 for j:=1 to 9 do
if i+j=5 then
 s:=s*a[i,j];
a[i,10]:=s;
end;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
 write (' ',a[i,j]);
writeln;
end;
readln;
end.

@Ev[G]eN · 12.02.2012, 22:27

Сообщение от Luciferr

randomize;
for i:=1 to 10 do
for j:=1 to 10 do
begin
write('a[',i,',',j,'] = ');
readln(a[i,j]);
end;

все логично

@ermolay · 18.04.2012, 04:50

Pascal

const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
var
  a: tArr;
  i,j,n,m,pr: integer;
begin
  pr:=1;
  randomize;
  write('vvedite razmeri massiva: ');
  readln(n,m);
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:5);
      if i+j=5 then pr:=pr*a[i,j];
    end;
    writeln;
  end;
  writeln;
 
  writeln('poluchennii massiv:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if j=m then a[i,j]:=pr;
      write(a[i,j]:5);
    end;
    writeln;
  end;
  readln;
end.

@kojakin · 29.05.2012, 14:54 **[ТС]**

Сообщение от ermolay

Pascal

1
2
3

const
.....
end.

помогите пожалуйста сделать без randomize

@ermolay · 29.05.2012, 15:01

Pascal

const
  nmax=100;
type
  tArr=array[1..nmax,1..nmax] of integer;
var
  a: tArr;
  i,j,n,m,pr: integer;
begin
  pr:=1;
  write('vvedite razmeri massiva: ');
  readln(n,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write('Введите a[',i,',',j,']: ');
      readln(a[i,j]);
      if i+j=5 then pr:=pr*a[i,j];
    end;
    writeln;
  end;
  writeln;
  
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:5);
    writeln;
  end;
 
  writeln('poluchennii massiv:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if j=m then a[i,j]:=pr;
      write(a[i,j]:5);
    end;
    writeln;
  end;
  readln;
end.

@kojakin 2 / 2 / 3 Регистрация: 09.11.2011 Сообщений: 70
		1
	Двумерный массив. Вычислить произведение тех элементов, сумма номеров строки и столбца которых равна 5 12.02.2012, 20:21. Показов 2098. Ответов 8 Метки нет (Все метки) В матрице вычислить произведение тех ее элементов, сумма номеров строки и столбца которых равна числу 5. Заменить на полученное произведение последний столбец матрицы. Заранее большое спасибо! 0

@kojakin 2 / 2 / 3 Регистрация: 09.11.2011 Сообщений: 70
	12.02.2012, 22:04 [ТС]	3
	спасибо, а можно без раномайза 0

@Ev[G]eN Mobile Software Engineer 5365 / 1584 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	12.02.2012, 22:27	6
	Сообщение от Luciferr randomize; for i:=1 to 10 do for j:=1 to 10 do begin write('a[',i,',',j,'] = '); readln(a[i,j]); end; все логично 0

Опции темы