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

Массивы. В каждой строке найти наибольший элемент, записать в линейный массив

10.05.2012, 15:26. Показов 2356. Ответов 7
Метки нет (Все метки)

1) Создать двумерный массив случайных чисел A [1..10,1..10]. в каждой строке этого массива найти наибольший элемент и записать его в линейный массив B [1..10]. Вывести оба массива.
Добавлено через 27 минут
ну пожалуйста решите
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2012, 15:26
Ответы с готовыми решениями:

В каждой строке матрицы найти наибольший элемент и записать его в линейный массив
Создать двумерный массив случайных чисел А. В каждой строке этого массива найти наибольший элемент...

Найти в каждой строке матрицы наибольший элемент и записать его в одномерный массив
Здравствуйте! Если не трудно, не могли бы вы мне немного помочь. Условие задачи такое: //Написать...

Найти наибольший элемент каждой строки матрицы и записать их в массив B
нужно задать матрицу C размером 6x7.Найти наибольший элемент каждой строки матрицы и записать их в...

Найти наибольший элемент каждой пары из массива А и записать их в новый массив
Найти наибольший элемент каждой пары из массива А и записать их в новый массив. Получить из него...

7
55 / 55 / 30
Регистрация: 08.05.2012
Сообщений: 162
10.05.2012, 15:37 2
Задание 1

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
program ueba;
const n = 10;
type TMatr = array[1..n, 1..n] of integer;
       TMas = array[1..n] of integer;
var A : TMatr;
     B : TMas;
     i, j, max : integer;
begin
  randomize;
  for i := 1 to n do
    for j := 1 to n do
      A[i, j] := random(10);
  for i := 1 to n do
  begin
    max := A[i, 1];
    for j := 2 to n do
      if A[i, j] > max then
        max := A[i, j];
      B[i] := max;
  end;
  for i := 1 to n do
    for j := 1 to n do
      writeln(A[i,j]);
  writeln;
  for i := 1 to n do
    writeln(B[i]);
  readln;
end.
1
0 / 0 / 0
Регистрация: 10.05.2012
Сообщений: 7
10.05.2012, 15:51  [ТС] 3
а можно чуть проше написать прогу без TMas
0
55 / 55 / 30
Регистрация: 08.05.2012
Сообщений: 162
10.05.2012, 15:53 4
Ну а во втором я не уверен.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program ooo;
type Tmn = set of integer;
var mn : Tmn;
     cnt : integer;
begin
  mn := [];
  cnt := 0;
  for i := 1 to n do
    if not (B[i, j] in mn) then
    begin
      inc(cnt);
      mn := mn + [B[i,j]];
      writeln(i);
    end;
  writeln(cnt);
  readln;
end.
Добавлено через 1 минуту
mishgun, тогда не используй тип, а сразу пиши B : array[1..n] of integer; в переменную.
1
0 / 0 / 0
Регистрация: 10.05.2012
Сообщений: 7
10.05.2012, 16:00  [ТС] 5
на пиши как сделать без TMatr,TMas а то я не понимаю ни чего мы это не проходили ещё
0
55 / 55 / 30
Регистрация: 08.05.2012
Сообщений: 162
10.05.2012, 16:16 6
mishgun, вместо
Pascal
1
2
3
4
type TMatr = array[1..n, 1..n] of integer;
       TMas = array[1..n] of integer;
var A : TMatr;
     B : TMas;
Делай так
Pascal
1
2
var A : array[1..n, 1..n] of integer;;
     B : array[1..n] of integer;;
1
0 / 0 / 0
Регистрация: 10.05.2012
Сообщений: 7
10.05.2012, 16:39  [ТС] 7
ну попробуй вторую решить
0
55 / 55 / 30
Регистрация: 08.05.2012
Сообщений: 162
10.05.2012, 16:43 8
mishgun, один вопрос - одна тема. А если быть внимательным, то решение сделано выше.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2012, 16:43

Найти в каждой строке наибольший элемент и поместить его в одномерный массив
Ребят , времени не хватает. Дана целочисленная квадратичная матрица размером 6x6. Найти в каждой...

Массив: Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали.
Найти в каждой строке наибольший элемент и поменять его местами с элементом главной ...

Товарисчи объясните пожалуйста как сделать данную задачу! (Найти наибольший элемент каждой строки А(4,6) и записать их в массив Y)
Найти наибольший элемент каждой строки А(4,6) и записать их в массив Y. С программированием не...

Массив: Найти в каждой строке матрицы наибольший элемент и поменять его местами с элементом главной диагонали.
помогите пожалуйста решить две задачи и если не трудно нарисовать блок схемы 1. Вставить в...

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

Найти максимальный элемент в каждой строке матрицы и записать данные в новый массив
Найти максимальный элемент в каждой строке и записать данные в новый массив. через рандом нужно


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

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

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