0 / 0 / 0
Регистрация: 02.06.2017
Сообщений: 8
1

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

02.06.2017, 18:14. Показов 2334. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратных 3.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2017, 18:14
Ответы с готовыми решениями:

Создайте новый одномерный массив из элементов двумерного массива, стоящих на главной диагонали
Дан массив d(8,8) случайными целыми числами в интервале . Введите значения элементов массива в виде...

Создайте новый одномерный массив из элементов двумерного массива, имеющих нечетное значение
Нужны алгоритм и программа. Заполнить двумерный числовой массив B(6,6) случайными целыми числами в...

Найти произведение положительных элементов массива, стоящих на местах, номера которых кратны трем
Дан одномерный массив N(14), найдите произведение положительных элементов массива,стоящих на...

Сформировать новый массив, состоящий из элементов заданного массива, значение которых не превышает номера ячейки, в которой они расположены
Напишите программу, которая формирует новый массив, состоящий из элементов заданного массива,...

1
Эксперт Pascal/Delphi
6806 / 4565 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
02.06.2017, 20:31 2
Лучший ответ Сообщение было отмечено Stefann как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2017, 20:31
Помогаю со студенческими работами здесь

Одномерный массив. Найти произведение 3-х элементов, значение которых. заключены на интервале [А, В] и кратны 3 или 5
Дан массив X(N). Найти произведение 3-х элементов, значение которых. заключены на интервале и...

Составьте одномерный массив из чисел, стоящих в нечтных столбцах двумерного массива
дан двумерный массив B(5,5) c случайными целыми числами в интервале и на каждый элемент 5 позицый...

Составить одномерный массив, содержащий номера максимальных элементов в столбцах исходного массива
Помогите решить задачи по Паскалю... С текстом программы 1. Вводится размер одномерного масива...

Одномерный массив из минимальных элементов столбцов исходного массива, номера которых делятся на четыре, и упорядочить его по убыванию
с клавиатуры вводится вещественная матрица MxN (M<=11, N<=9). Cоставить одномерный массив из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru