11 / 11 / 6
Регистрация: 06.04.2011
Сообщений: 31
1

Найти минимальные элементы в каждом столбце и вывести их в седьмой строке матрицы

06.05.2011, 22:29. Показов 1018. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Получите 36 случайных чисел, записать их в файл, чтением из файла сформировать матрицу 6 на 6. Найти минимальные элементы в каждом столбце и вывести их в седьмой строке матрицы.

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

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

Найти максимальные элементы в каждом столбце матрицы и вывести результат
Дан двумерный массив А(10,30). Найти максимальные элементы в каждом столбце и распечатать исходный...

Найти в каждом столбце матрицы max и min элементы матрицы и вывести новую матрицу на экран
S (3,3) найти в каждом столбце матрицы max и min элементы матрицы и вывести новую матрицу на экран

Найти минимальные элементы в строке матрицы и вывести в массив их индексы столбца
Нужно найти минимальные элементы в строке матрицы и вывести в массив их индексы столбца. Вся...

1
250 / 250 / 135
Регистрация: 09.04.2011
Сообщений: 524
07.05.2011, 09:53 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
uses crt;
type mas = array[1..100] of integer;
     mat = array[1..100,1..100] of integer;
var f: file of integer;
    A,min: mas;
    B: mat;
    i,j: byte;
    s: string;
Begin clrscr;
randomize;
write('Ââåäèòå èìÿ ôàéëà: ');
readln(s);
assign(f, s);
rewrite(f);
for i:=1 to 36 do begin
A[i]:=random(100);
write(f,A[i]);
end;
close(f);
reset(f);
for i:=1 to 6 do
  for j:=1 to 6 do read(f,B[i,j]);
close(f);
for i:=1 to 6 do begin
  min[i]:=100;
  for j:=1 to 6 do
  if B[j,i]<min[i] then min[i]:=B[j,i];
  end;
for i:=1 to 6 do begin
  B[i,7]:=min[i];
  for j:=1 to 7 do write(B[i,j]:4);
  writeln end;
readkey
end.
1
07.05.2011, 09:53
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.05.2011, 09:53
Помогаю со студенческими работами здесь

Найти и вывести минимальные по значению элементы в каждой строке заданной матрицы.
Найти и вывести минимальные по значению элементы в каждой строке заданной матрицы. помогите...

Найти элементы в каждом столбце матрицы
Найти элементы в каждом столбце матрицы G размером 7х4, которые больше числа А и меньшие числа С....

В каждом третьем столбце элементы матрицы заменить на 0, подсчитать сумму элементов в каждой чётной строке
Дана матрица размером MxN. В каждом 3-м столбце элементы матрицы заменить на 0, подсчитать сумму...

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


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

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

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