Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива

@Mr.Spock · Регистрация: 31.03.2010

Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива.

@Puporev · 20.10.2010, 11:22

Pascal

uses crt;
const nmax=10;
var a,b:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:byte;
    s:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(50)+1;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
writeln('Матрица сумм делителей:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    s:=0;
    for k:=1 to a[i,j] do
    if a[i,j] mod k=0 then s:=s+k;
    b[i,j]:=s;
    write(b[i,j]:4);
   end;
  writeln;
 end;
readln
end.

@Mr.Spock · 20.10.2010, 12:24 **[ТС]**

Огромное спасибо!

@Mr.Spock 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 32
		1
	Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива 20.10.2010, 10:06. Просмотров 1733. Ответов 2 Метки нет (Все метки) Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива. 0

@Mr.Spock 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 32
	20.10.2010, 12:24 [ТС]	3
	Огромное спасибо! 0

Опции темы

Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива

Решение