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

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

27.04.2013, 15:28. Показов 1378. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан двумерный массив. Поменять местами столбец, содержащий наибольшее количество отрицательных элементов, с последним столбцом.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.04.2013, 15:28
Ответы с готовыми решениями:

В прямоугольной матрице поменять местами столбец, содержащий наибольшее значение, с последним столбцом
В прямоугольной матрице поменять местами столбец, содержащий наибольшее значение, с последним...

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

Столбец содержащий минимальный элемент поменять местами с последним столбцом
Дан вещественный массив из 3 строк и 5 столбцов.Столбец содержащий минимальный элемент поменять...

Столбец, содержащий минимальный элемент, поменять местами с последним столбцом
var mas : array of real; i , j, k : integer ; imin,x : real; Begin With stringgrid1 do begin...

1
218 / 50 / 52
Регистрация: 15.01.2013
Сообщений: 305
27.04.2013, 20:33 2
Лучший ответ Сообщение было отмечено Kuznechok как решение

Решение

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
uses crt;
const
n=5;
m=5;
var d:array[1..n,1..m] of integer;
e:array[1..m] of integer;
i,j,k,max,h:integer;
begin
clrscr;
randomize;
for i:=1 to n do
    e[i]:=0;
for i:=1 to n do begin
    for j:=1 to m do begin
        d[i,j]:=random(21)-10;
        write(d[i,j]:4);
        if (d[i,j]<0) then e[j]:=e[j]+1;
    end;
    writeln;
end;
writeln;
max:=e[1];
for i:=1 to m do
    if (max<=e[i]) then begin
    max:=e[i];
    k:=i;
    end;
for j:=1 to n do begin
    h:=d[j,k];
    d[j,k]:=d[j,m];
    d[j,m]:=h;
end;
for i:=1 to n do begin
    for j:=1 to m do begin
        write(d[i,j]:4);
    end;
    writeln;
end;
readkey;
end.
1
27.04.2013, 20:33
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2013, 20:33
Помогаю со студенческими работами здесь

Столбец, содержащий минимальный элемент, поменять местами с последним столбцом
Тема 5: «Обработка двумерных числовых массивов» Задача 5.1. Заполнить двумерный числовой массив В...

Поменять местами столбец матрицы, содержащий наибольшее значение, со столбцом, содержащим наименьшее
в массиве В(3*3) поменять местами столбец содержащий наибольшее значение со столбцом,содержащим...

Массив: Поменять столбец, содержащий максимальный элемент с последним столбцом массива.
3. Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец,...

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


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

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

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