Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
vadim_shum
0 / 0 / 0
Регистрация: 04.03.2016
Сообщений: 8
#1

Сформировать одномерный массив B, из наибольших по модулю элементов столбцов матрицы A - Pascal ABC

05.03.2016, 15:48. Просмотров 156. Ответов 1
Метки нет (Все метки)


http://www.cyberforum.ru/pascalabc/thread1951481.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2016, 15:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сформировать одномерный массив B, из наибольших по модулю элементов столбцов матрицы A (Pascal ABC):

Сформировать одномерный массив из максимальных элементов столбцов матрицы
Сформировать одномерный массив из максимальных элементов столбцов матрицы.

Сформировать одномерный массив [Bi] из максимальных элементов столбцов прямоугольной матрицы
Program laba4; var j,i,N,max,imax,jmax,L: integer; B: array of integer; A:...

Сформировать одномерный массив из максимальных элементов столбцов матрицы.
Тема:Массивы...Сформировать одномерный массив из максимальных элементов...

Создайте одномерный массив из элементов матрицы, которые по модулю больше 8
Создайте одномерный массив из элементов двумерного массива, которые больше по...

Сформировать одномерный массив из элементов матрицы
вариант 15.срочно

1
romires
3 / 3 / 15
Регистрация: 09.04.2012
Сообщений: 27
05.03.2016, 18:37 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const
 ni=4;
 nk=5;
 
var
 i, k, l :byte;
 a :array [1..ni,1..nk] of integer;
 b :array[1..ni] of integer;
 max :integer;
begin
 writeln('Исходный массив A');
 for i:=1 to ni do
  for k:=1 to nk do
   begin
    a[i,k]:=-99+random(199); //заполняем массив числами от -99 до 99
    write(a[i,k]:4);
    if k=nk then writeln;
   end;
 
 writeln('Массив B');
 for i:= 1 to ni do
  begin
   max:=abs(a[i,1]);
   for k:=2 to nk do
    if abs(a[i,k])>max then
     begin
      max:=abs(a[i,k])
     end;
   b[i]:=max;
   if i=1 then write('[');
   write(b[i]:3);
   if i<ni then write(',') else write(']')
  end;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.03.2016, 18:37
Привет! Вот еще темы с решениями:

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

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

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

Сформировать одномерный массив из матрицы элементов
Помогите решить. 2. Дан двумерный массив. Сформировать одномерный массив...


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

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

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