Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1 / 1 / 0
Регистрация: 08.04.2010
Сообщений: 30
1

Двумерные числовые массивы.

18.05.2010, 22:30. Показов 951. Ответов 2
Метки нет (Все метки)

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

Помогите кто-нибудь решить, пожалуйста.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2010, 22:30
Ответы с готовыми решениями:

Двумерные числовые массивы
Прошу помочь, а то вообще ни чего не успеваю!

двумерные числовые массивы
составить программу для ввода матрицы A(размерностью n*n).Вычислить и вывести на экран скалярное...

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

Двумерные массивы
Ввести в программе имя и фамилию, и сделать так, чтобы они поменялись местами. Заранее спасибо! :)

2
Модератор
63727 / 47279 / 32585
Регистрация: 18.05.2008
Сообщений: 114,600
18.05.2010, 22:47 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
38
39
40
41
42
43
44
45
46
47
uses crt;
const n=5;
      m=4;
var a:array[1..n,1..m] of integer;
    i,j,imx:byte;
    mx,x:integer;
begin
clrscr;
randomize;
writeln('Исходнная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
mx:=a[1,1];imx:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>mx then
 begin
  mx:=a[i,j];
  imx:=i;
 end;
writeln('Максимальный элемент=',mx,' строка=',imx);
if imx=1 then write('Максимальный элемент в первой строке, обмена нет')
else
 begin
  for j:=1 to m do
   begin
    x:=a[1,j];
    a[1,j]:=a[imx,j];
    a[imx,j]:=x;
   end;
  writeln('Обмен строк:');
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
   end;
  end;
readln
end.
1
1 / 1 / 0
Регистрация: 08.04.2010
Сообщений: 30
18.05.2010, 22:53  [ТС] 3
Спасибо Вам большое!=)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2010, 22:53

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Двумерные массивы
Составить алгоритм и программу для решения задачи. Дано квадратную матрицу А размера nхn целых...

Двумерные массивы
Необходимо составить программу, выполняю заданную операцию над двумерным массивом размером 10х10....

Одномерные числовые массивы. Если в массиве максимальный элемент четный, найти количество положительных элементов
Если в массиве максимальный элемент четный, найти количество положительных элементов иначе -...


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

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

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