Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
MiThEoN
453 / 315 / 37
Регистрация: 31.10.2009
Сообщений: 518
Записей в блоге: 2
1

Для матриц определить в каждой строке минимальный элемент и записать его в одномерный массив

31.10.2009, 16:55. Показов 1666. Ответов 1
Метки нет (Все метки)

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ НА ПОДПРОГРАММЫ.

"Даны две матрицы А[N,M] и B[M,N] (N<=10,M<=15). Для матриц определить в каждой строке минимальный элемент и записать его в одномерный массив. Определить в каждом полученном одномерном массиве значение максимального элемента. Выдать на печать матрицы, соответствующие им одномерные массивы, значение максимальных элементов.

БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН!
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2009, 16:55
Ответы с готовыми решениями:

Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив
помогите пожалуйста. Pascal. задание: для каждой строки матрицы найти максимальный элемент и...

определить на какой строке находится минимальный элемент из максимальных на каждой строке
дан массив М(n,k). определить на какой строке находится минимальный элемент из максимальных на...

Одномерный массив. Найти минимальный элемент из его элементов с четными номерами
Массив заполнен случайными числами в диапазоне от 0 до 50 размера N. Найти минимальный элемент из...

Максимальный элемент в каждом столбце матрицы, минимальный в каждой строке - объединить в массив
Дана матрица q (k,n). Найти значение максимального елемента в каждом столбце,минимального в каждой...

1
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
31.10.2009, 17:55 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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
uses crt;
const nmax=10;
      mmax=15;
type mas=array[1..mmax] of integer;{массив-строка матрицы}
     matr=array[1..nmax] of mas;{матрица-массив строк}
procedure Vvod(var mt:matr;var x,y:byte;c:char); {создание матрицы и вывод на экран}
var i,j:byte;
begin
writeln('Матрица ',c);
repeat
write('Количество строк=');readln(x);
until x in [1..10];
repeat
write('Количество столбцов=');readln(y);
until y in [1..15];
for i:=1 to x do
 begin
  for j:=1 to y do
   begin
    mt[i,j]:=random(10)+10;
    write(mt[i,j]:4);
   end;
  writeln;
 end;
end;
function Min(ms:mas;y:byte):integer;{нахождение минимального в строке}
var i,j:byte;
    mn:integer;
begin
mn:=ms[1];
for i:=1 to y do
if ms[i]<mn then mn:=ms[i];
Min:=mn;
end;
procedure Vektor(mt:matr;x,y:byte;var v:mas;c:char);{создание вектора минимальных}
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to x do
 begin
  v[i]:=Min(mt[i],y);
  write(v[i],' ');
 end;
writeln;
end;
function Max(ms:mas;x:byte):integer;{нахождение максиимального в векторе}
var i,j:byte;
    mx:integer;
begin
mx:=ms[1];
for i:=1 to x do
if ms[i]>mx then mx:=ms[i];
Max:=mx;
end;
 
var a,b:matr;
    va,vb:mas;
    na,ma,nb,mb:byte;
    s:char;
begin
clrscr;
Vvod(a,na,ma,'A');
Vektor(a,na,ma,va,'A');
Writeln('Максимальный=',Max(va,na));
writeln;
Vvod(b,nb,mb,'B');
Vektor(b,nb,mb,vb,'B');
Writeln('Максимальный=',Max(vb,nb));
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.10.2009, 17:55

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

Определить максимальный элемент в каждой строке матрицы и поменять его местами с последним элементом строки
Вывести на экран матрицу 8x8, элементами которой являются целые случайные числа из интервала ....

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

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


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

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

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