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

@Antisfen · Регистрация: 07.12.2013

Author24 — интернет-сервис помощи студентам

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

@ermolay · 08.01.2014, 15:42

Pascal

const
  nmax=10;
var
  a, b: array[1..nmax,1..nmax] of integer;
  n,m,i,j,x: integer;
begin
  repeat
    write('Ââåäèòå n, m (n<=10, m<=10): ');
    readln(n,m);
  until (n in [1..10]) and (m in [1..10]);
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(999)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('Ïîëó÷åííûé ìàññèâ:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      x:=0;
      while a[i,j]>0 do
      begin
        x:=x+a[i,j] mod 10;
        a[i,j]:=a[i,j] div 10;
      end;
      b[i,j]:=x;
      write(b[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

@Antisfen 0 / 0 / 0 Регистрация: 07.12.2013 Сообщений: 77
		1
	Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива 08.01.2014, 15:27. Показов 2616. Ответов 1 Метки нет (Все метки) Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива. Массив вывести в виде таблицы. 0

	08.01.2014, 15:42

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

Решение