Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 03.12.2019
Сообщений: 19
1

Дан двумерный массив A(N*N). Сформировать одномерный массив из утроенных четных чисел

04.12.2019, 11:05. Показов 1365. Ответов 2
Метки нет (Все метки)

Задание: Дан двумерный массив A(N*N). Сформировать одномерный массив из утроенных четных чисел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2019, 11:05
Ответы с готовыми решениями:

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

Сформировать одномерный массив из утроенных четных элементов матрицы
Дан двумерный массив A (N*N). Сформировать одномерный массив из утроенных четных чисел.

Дан двумерный массив целых чисел размерностью 5 х 6. Сформировать одномерный массив
Дан двумерный массив целых чисел размерностью 5 х 6. Сформировать одномерный массив, каждый элемент...

Дан двумерный массив. Сформировать одномерный массив по условию
Дан двумерный массив размерностью 6 х 5, заполненный целыми числами с клавиатуры. Сформировать...

2
2348 / 756 / 553
Регистрация: 15.01.2019
Сообщений: 2,347
04.12.2019, 11:30 2
Лучший ответ Сообщение было отмечено aemons как решение

Решение

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
program Project1;
const
  maxelem = 20;
var
  a: array[1..maxelem,1..maxelem] of integer; { Переменная для хранения двумерного массива.}
  b: array[1..maxelem*maxelem] of integer; {переменная для хранения одномерного массива}
  n,m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j,k: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  write('Введите значение размерности массива (не более ',maxelem,'): ');
  Readln(n);
  for i:= 1 to n do
    for j:= 1 to n do
    begin
      write('Введите значение элемента [',i,',',j,']: ');
      Readln(a[i,j]);     { Ввод значений в двумерный массив.}
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  k:= 0;
  for i:= 1 to n do
    for j:= 1 to n do
      if a[i,j] mod 2 = 0 then {Условие для нахождения элементов с четным значением}
        begin
          inc(k);           {Приращение счетчика для индексов нового массива}
          b[k]:= a[i,j]*3;  {Утроение найденного элемента}
        end;
  writeln('Новый массив:');
  for i:= 1 to k do
    write(b[i]:4);
  Readln;
end.
1
0 / 0 / 0
Регистрация: 03.12.2019
Сообщений: 19
04.12.2019, 11:34  [ТС] 3
Вышло так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const n = 2;
var 
 i,j: integer;
 A: array [1..n,1..n] of integer;
begin
  writeln('Введите значения матрицы A');
for i:=1 to n do
for j:=1 to n do
 begin
  write('A[',i,',',j,']=');
  readln(A[i,j]);
 end;
 for i:=1 to n do
 for j:=1 to n do
   if A[i,j] mod 2 = 0 then 
      A[i,j]:= A[i,j]*3;
 writeln ('Матрица A:');
 for i:=1 to n do
 begin
  for j:=1 to n do
  writeln('A[',i,',',j,']=',A[i,j]);
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2019, 11:34

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дан двумерный массив размерностью 4*5. Сформировать одномерный массив
Дан двумерный массив размерностью 4*5, заполненный целыми числами с клавиатуры. Сформировать...

Дан двумерный массив. Сформировать одномерный массив из элементов заданного массива, расположенных под побочной диагональю.
Дан двумерный массив размером n x n. Сформировать: Одномерный массив из элементов заданного...

Дан двумерный массив размерностью Н. сформировать одномерный массив из элементов заданного массива расположенных над главной диагональю.
помогите решить=)Дан двумерный массив размерностью Н. сформировать одномерный массив из элементов...

Дан двумерный массив. Сформировать одномерный массив, каждый элемент которого равен количеству элементов строки, больших данного числа
1)Дан двумерный массив размерностью 4х6, заполненный целыми числами, введенными с клавиатуры....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.