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

@MaksimRu · Регистрация: 19.10.2014

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

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

@vint-81 · 20.10.2014, 21:21

Pascal

const n=10;
type mas=array[1..n,1..n] of integer;
var a,b:mas;
    i,j,k:integer;
begin
    randomize;
    writeln('a:');
    for i:=1 to n do
     begin
      for j:=1 to n do
        begin
        a[i,j]:=random(maxint);
        write(a[i,j]:6);
        k:=0;
        while a[i,j]>0 do
         begin
          k:=k+a[i,j] mod 10;
          a[i,j]:=a[i,j] div 10
         end;
        b[i,j]:=k
       end;
      writeln
     end;
    writeln('b:');
    for i:=1 to n do
     begin
      for j:=1 to n do
          write(b[i,j]:3);
      writeln
     end;
    readln
end.

@MaksimRu 13 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 19
		1
	Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива 20.10.2014, 19:02. Показов 638. Ответов 1 Метки нет (Все метки) Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива. 0

Опции темы