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

Найти строку, содержащую максимальную сумму элементов, и поменять местами со столбцом, имеющим тот же номер

27.04.2013, 19:21. Показов 780. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
до 29 нужно сделать, а я не понимаю

дан двумерный массив целых чисел, размера nxn. найти строку, содержащую максимальную сумму элементов и поменять местами со столбцом имеющим тот же номер
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2013, 19:21
Ответы с готовыми решениями:

Найти строку, содержащую наибольшую сумму элементов и поменять ее со столбцом имеющим тот же номер
Дан двумерный массив размерностью x,n Найти строку,содержащую наибольшую сумму элементов и...

Массив: Строку с наименьшей суммой элементов поменять местами со столбцом, имеющим тот же номер
Доброго времени суток. Суть такова, дан вещественный массив Anxn . Нужно строку с наименьшей...

Найти столбец с содержащий наибольшее количество кратных 3 элементов, и поменять его местами со столбцом, имеющим тот же номер
Заполнить двумерный числовой массив А(6, 6) целыми числами. Найти столбец с содержащий наибольшее...

Найти столбец с наибольшей суммой элементов и поменять его местами со строкой, имеющей тот же номер
Заполнить двумерный числовой массив А целыми числами. Найти столбец с наибольшей суммой элементов и...

3
218 / 50 / 52
Регистрация: 15.01.2013
Сообщений: 305
27.04.2013, 22:12 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
36
37
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j,r,s,e,k:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
    for j:=1 to n do begin
        a[i,j]:=random(21)+1;
        write(a[i,j]:4);
    end;
    writeln;
end;
writeln;
e:=0;
for i:=1 to n do begin
    s:=0;
    for j:=1 to n do
        s:=s+a[i,j];
    if (s>e) then begin
    e:=s;
    k:=i;
    end;
end;
for i:=1 to n do begin
    r:=a[k,i];
    a[k,i]:=a[i,k];
    a[i,k]:=r;
end;
for i:=1 to n do begin
    for j:=1 to n do
        write(a[i,j]:4);
    writeln;
end;
readkey;
end.
1
0 / 0 / 0
Регистрация: 27.04.2013
Сообщений: 4
28.04.2013, 11:26  [ТС] 3
спасибо большое, не представляешь, как спас, в понедельник зачет сдавать надо, а я в паскале не бум бум, еще раз спасибо тебе

Добавлено через 11 часов 3 минуты
еще одна просьба будет, напишите за что отвечает каждая переменная
0
218 / 50 / 52
Регистрация: 15.01.2013
Сообщений: 305
28.04.2013, 11:28 4
i,j: переменные индексов массива.
n: размерность массива.
a[i,j]: массив.
r: для смены элементов строк с столбцом.
s,e: сумма строк.
k: номер строки.
1
28.04.2013, 11:28
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2013, 11:28
Помогаю со студенческими работами здесь

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

В матрице поменять местами заданную строку и строку содержащую минимальный элемент среди неотрицательных элементов
Задание: В заданной матрице поменять местами: 1) строку с указанным номером и строку, содержащую...

Найти строку, содержащую минимальный элемент матрицы. Найденную строку поменять местами с 4-ой строкой
Дана матрица А(5,3) 1. Найти строку, содержащую минимальный элемент матрицы 2. Найденную...

Найти максимальную и минимальную строку и поменять их местами
помогите пожалуйста!!! Я не могу написать программу на Паскале!!!=( ...вот задание: Найти...


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

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

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