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

@Keymad · Регистрация: 31.10.2017

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

Помогите пожалуйста

>> Составить программу на Паскале. <<

Сформировать двухмерный массив A[1..10,1..10] случайными значениями в диапазоне [0..20]. Создать одномерный массив B[1..10], значения элементов которого равны сумме элементов строк двухмерного массива. Массив B вывести на экран.

Только это надо сделать с помощью циклов и условий, просто попросил на другом сайте, там чел сделал какими-то непонятными
действиями.

@Cyborg Drone · 01.11.2017, 05:35

Keymad, условия для данной задачи не требуются. Кстати, программа с другого сайта работала? Если да, то это Вы виноваты в том, что не понимаете каких-то действий упомянутого чела.

Pascal

var a: array[1..10, 1..10] of integer;
    b: array[1..10] of integer;
    i, j: integer;
begin
  randomize;
  writeln('Матрица A:');
  for i := 1 to 10 do
    begin
      for j := 1 to 10 do
        begin
          a[i, j] := random(21);
          write(a[i, j] :4);
          b[i] := b[i] + a[i, j]
        end;
      writeln
    end;
  writeln('Массив B:');
  for i := 1 to 10 do write(b[i] :4)
end.

@Keymad 0 / 0 / 0 Регистрация: 31.10.2017 Сообщений: 2
		1
	Создать одномерный массив, значения элементов которого равны сумме элементов строк матрицы 31.10.2017, 20:51. Показов 2820. Ответов 1 Метки нет (Все метки) Помогите пожалуйста *>> Составить программу на Паскале. <<* Сформировать двухмерный массив A[1..10,1..10] случайными значениями в диапазоне [0..20]. Создать одномерный массив B[1..10], значения элементов которого равны сумме элементов строк двухмерного массива. Массив B вывести на экран. Только это надо сделать с помощью циклов и условий, просто попросил на другом сайте, там чел сделал какими-то непонятными действиями. 0

	01.11.2017, 05:35

Опции темы

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

Решение