Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти в массиве минимальный элемент и заполнить нулями строку и столбец, на пересечении которых он находится https://www.cyberforum.ru/ turbo-pascal/ thread1098361.html
1) Найти в массиве минимальный элемент и заполнить нулями строку и столбец, на пересечении которых он находится Вывести полученный массив на экран
Turbo Pascal Найти среднее значение отрицательных элементов и вычесть это значение из всех элементов последней строки
1)Найти среднее значение отрицательных элементов и вычесть это значение из всех элементов последней строки Вывести полученный массив на экран
Turbo Pascal В одномерном массиве найти самый большой элемент и заменить им все нулевые элементы
В одномерном массиве найти самый большой элемент и заменить им все нулевые элементы. помогите пожалуйста.
Turbo Pascal Смоделировать формирование железнодорожного состава с использованием структуры списка В качестве модели хранения данных должны быть использованы стек или очередь или кольцо. Смоделировать формирование железнодорожного состава с использованием структуры списка. Возможно добавление... https://www.cyberforum.ru/ turbo-pascal/ thread1098222.html
Turbo Pascal Определить попадает ли точка внутрь треугольника https://www.cyberforum.ru/ turbo-pascal/ thread1097937.html
Определить попадает ли точка A(x,y) внутрь треугольника, углы которого заданы координатами (0,2), (-2,0), (2,0)
Вычислить значение выражения с точностью до к цифр после запятой Turbo Pascal
вычислить значение выражения с точностью до к цифр после запятой
Программирование линейных вычислительных процессов / Turbo Pascal Turbo Pascal
Составить схему алгоритма и программу линейного вычислительного процесса.
Turbo Pascal Вывести значение наибольшего элемента в массиве помогите решить! Формат входных данных Сначала задано число N — количество элементов в массиве (1N35). Далее через пробел записаны N чисел — элементы массива. Формат выходных данных Необходимо... https://www.cyberforum.ru/ turbo-pascal/ thread1097827.html
Turbo Pascal Вывести значения элементов массива, просматривая массив в прямом порядке https://www.cyberforum.ru/ turbo-pascal/ thread1097806.html
Дан массив натуральных чисел, состоящий из N элементов. Значения элементов от 1 до N и нет двух одинаковых. В текущем элементе массива записан индекс элемента этого же массива, в котором записано его...
Turbo Pascal Вывести в столбик значения элементов заданного массива в прямом порядке Вывести в столбик значения элементов заданного массива в прямом порядке. https://www.cyberforum.ru/ turbo-pascal/ thread1097798.html
Модератор
8399 / 4152 / 2872
Регистрация: 17.08.2012
Сообщений: 13,235
17.02.2014, 01:09 0

В массиве поменять первую строку со строкой в которой находится максимальный элемент

17.02.2014, 01:09. Просмотров 1356. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Larus15 как решение

Решение


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
const m = 10;
 
var a: array [1..m, 1..m] of integer;
    i, j, mi, mj, n, t: integer;
 
procedure prnt;
var i, j: integer;
begin
  for j := 1 to n do
    begin
      for i := 1 to n do write(a[i, j]:5);
      writeln
    end
end;
 
begin
  randomize;
  repeat
    write('n = ');
    readln(n);
    if (n < 2) or (n > m) then writeln('n out of range 2..', m, ', reenter.')
  until (n >= 2) and (n <= m);
  mi := 1;
  mj := 1;
  for j := 1 to n do
    for i := 1 to n do
      begin
        a[i, j] := random(98) - 49;
        if a[i, j] > a[mi, mj]
          then begin
            mi := i;
            mj := j
          end
      end;
  writeln('Source array:');
  prnt;
  for i := 1 to n do
    begin
      t := a[i, 1];
      a[i, 1] := a[i, mj];
      a[i, mj] := t
    end;
  write('Max is a[', mi, ', ', mj, '], ');
  if mj = 1 then write('no change. ') else write('exchange 1 and ', mj, ' rows. ');
  writeln('Result:');
  prnt;
  for j := 1 to n do a[mi, j] := 2 * a[mi, j];
  writeln('Elements of column ', mi, ' multiple to 2. Result:');
  prnt;
  readln
end.


Вернуться к обсуждению:
В массиве поменять первую строку со строкой в которой находится максимальный элемент
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2014, 01:09
Готовые ответы и решения:

Поменять местами строку , в которой находится максимальный элемент со строкой, где находится минимальный элемент матрицы
Дана целочисленная матрица А размером N, где N вводится с клавиатуры. Поменять местами строку , в...

Поменять местами первую строку матрицы с той строкой, где находится максимальный элемент
Задана матрица А(4,4). Если максимальный элемент матрицы равен сумме элементов первой строки, то...

Поменять местами первую строку матрицы с той строкой, где находится максимальный элемент
Задана матрица А(4,4). Если максимальный элемент матрицы равен сумме элементов первой строки, то...

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

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