Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратны 3

@Stefann · Регистрация: 02.06.2017

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

Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратных 3.

@ZX Spectrum-128 · 02.06.2017, 20:31

Pascal

const
  n = 6;
 
var
  a: array [1..n, 1..n] of integer;
  b: array [1..n * n] of integer;
  i, j, k: integer;
 
begin
  randomize;
  writeln('Matrix A:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(n) + 1;
      write(a[i, j]:3);
    end;
    writeln;
  end;
  k := 0;
  for j := 1 to n do
    for i := 1 to n do
      if j mod 3 = 0 then
      begin
        inc(k);
        b[k] := a[i, j];
      end;
  writeln('Vector B:');    
  for i := 1 to k do
    write(b[i]:3);
end.

@Stefann 0 / 0 / 0 Регистрация: 02.06.2017 Сообщений: 8
		1
	Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратны 3 02.06.2017, 18:14. Показов 2334. Ответов 1 Метки нет (Все метки) Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратных 3. 0

Опции темы

Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратны 3

Решение