Для каждой строки матрицы найти сумму элементов с номерами от к1 до к2 и записать данные в новый массив

@КристинаМ · Регистрация: 13.06.2014

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

Дан массив размером n*n, элементы которого-целые числа. Для каждой строки найти сумму элементов с номерами от к1 до к2 и записать данные в новый массив.

@erl27 · 04.07.2014, 03:08

Pascal

var
  A: array[1..25, 1..25] of integer;
  B: array[1..25] of integer;
  i, j, k1, k2, n: byte;
  
begin
  repeat
    write('n = ');
    readln(n)
  until n < 26;
  repeat
    write('k1 = ');
    readln(k1);
  until k1 <= n;
  repeat
    write('k2 = ');
    readln(k2);
  until (k2 >= k1) and (k2 <= n);
  writeln;
  for i := 1 to n do begin
    b[i] := 0;
    for j := 1 to n do begin
      a[i, j] := random(100);
      write(a[i, j]:4);
      if j in [k1..k2] then b[i] := b[i] + a[i, j]
    end;
    writeln
  end;
  writeln;
  writeln('Результат:');
  for i := 1 to n do write(' ', b[i]);
  writeln
end.

@КристинаМ 0 / 0 / 0 Регистрация: 13.06.2014 Сообщений: 22
		1
	Для каждой строки матрицы найти сумму элементов с номерами от к1 до к2 и записать данные в новый массив 03.07.2014, 16:26. Показов 2166. Ответов 1 Метки нет (Все метки) Дан массив размером n*n, элементы которого-целые числа. Для каждой строки найти сумму элементов с номерами от к1 до к2 и записать данные в новый массив. 0

	04.07.2014, 03:08

Опции темы

Для каждой строки матрицы найти сумму элементов с номерами от к1 до к2 и записать данные в новый массив

Решение