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

Все элементы чётных столбцов возвести в куб, а элементы нечётных столбцов разделить на 3

27.11.2017, 21:39. Показов 1253. Ответов 1
Метки нет (Все метки)

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

В двумерном массиве A[n,m] разделить нацело все элементы чётных столбцов на 2
Помогите пожалуйста. В двумерном массиве A разделить нацело все элементы чётных столбцов на 2,...

Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее положительных элеменов столбцов
4.44 Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее значение...

Все положительные элементы массива возвести в квадрат, а отрицательные в куб
Дан массив Y. Все положительные элементы массива возвести в квадрат, а отрицательные в куб. Вывести...

Все положительные элементы массива возвести в квадрат, а отрицательные в куб
1)Дан массив Y. Все положительные элементы массива возвести в квадрат, а отрицательные в куб....

1
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
28.11.2017, 09:06 2
Лучший ответ Сообщение было отмечено Vladnel26 как решение

Решение

Взято отсюда:
Среди элементов четных столбцов массива заменить все элементы на их квадраты

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
const
  M = 5;
  N = 8;
 
type
  T_Mas = array [1..M, 1..N] of integer;
 
procedure Input(var x: T_Mas);
var
  i, j: integer;
begin
  randomize;
  writeln('Исходная матрица:');
  writeln;
  for i := 1 to M do
  begin
    for j := 1 to N do
    begin
      x[i, j] := random(21) - 10;
      write(x[i, j]:8);
    end;
    writeln;
  end;
  writeln;
end;
 
procedure Square(var x: T_Mas);
var
  i, j: integer;
begin
  for i := 1 to M do
    for j := 1 to N do
      if j mod 2 = 0 then
        x[i, j] := x[i, j] * x[i, j] * x[i, j]
      else
        x[i, j] := x[i, j] div 3;
end;
 
procedure Output(const x: T_Mas);
var
  i, j: integer;
begin
  Writeln('Новая матрица:');
  Writeln;
  for i := 1 to M do
  begin
    for j := 1 to N do
      Write(x[i, j]:8);
    Writeln;
  end;
end;
 
var
  x: T_Mas;
 
begin
  Input(x);
  Square(x);
  Output(x);
end.
1
28.11.2017, 09:06
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2017, 09:06
Помогаю со студенческими работами здесь

возвести в степень элементы 2го и последуюших столбцов матрицы
Народ помогите! Как возвести в степинь елементы 2го и последуюших столбцов матрици

Все элементы четных строк возвести в квадрат, а элементы нечетных строк разделить на 2
Дана целочисленная прямоугольная матрица. Все элементы четных строк возвести в квадрат, а элементы...

Обнулить отрицательные элементы всех чётных столбцов матрицы
Составить программу, которая в двумерном массиве случайных чисел отрицательные элементы всех четных...

Дан массив Y. Все положительные элементы массива возвести в квадрат, а отрицательные в куб
Задача 9. Дан массив Y. Все положительные элементы массива возвести в квадрат, а отрицательные в...


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

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

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