Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
#1

Умножьте все элементы первой строки матрицы на минимальный элемент. Вывести исходную матрицу и полученную

16.06.2014, 19:38. Просмотров 1086. Ответов 6
Метки нет (Все метки)

PascalABC.NET Умножьте все элементы первой строки матрицы на минимальный элемент. Вывести исходную матрицу и полученную. Закрасить элементы, расположенные в первой строке.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2014, 19:38
Ответы с готовыми решениями:

Дано две матрицы [A] и [B], размером N x M, Получить новую матрицу [C] путем сложения элементов исходных. Вывести на печать исходную и полученную ма
Дано две матрицы и , размером N x M, Получить новую матрицу путем сложения ...

Умножьте все элементы последнего столбца на максимальный элемент матрицы
Умножьте все элементы последнего столбца на максимальный элемент матрицы....

Умножить все элементы матрицы на минимальный элемент матрицы
Здравствуйте. Вот собственно задача: "Дана матрица А(m, n), 1<(m, n)<10....

Найти и вывести номер первой строки, в которой все элементы равны нулю
1. С клавиатуры вводится матрица вещественных чисел размером N строк на M...

Поделить все элементы каждой строки матрицы на наибольший по модулю элемент этой строки
массив размерностью m на n.поделить все элементы каждой строки на наибольший по...

6
AlexKolc
191 / 161 / 116
Регистрация: 14.09.2013
Сообщений: 302
16.06.2014, 20:07 #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
var
  n, m, i, j, min: longint;
  a: array[1..1000, 1..1000] of integer;
  
begin
  readln(n, m);
  min := 2000000000;
  for i := 1 to n do
    for j := 1 to m do
      begin
        read(a[i, j]);
        if a[i, j] < min
          then min := a[i, j]
      end;
  for i := 1 to n do
    begin
      for j := 1 to m do
        write(a[i, j], ' ');
      writeln
    end;
  for i := 1 to n do
    begin
      for j := 1 to m do
        if i = 1
          then write(a[i, j] * min, ' ')
          else write(a[i, j], ' ');
      writeln
    end
end.
0
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
17.06.2014, 14:32  [ТС] #3
не работает коректно бесконечно надо вводить
0
AlexKolc
191 / 161 / 116
Регистрация: 14.09.2013
Сообщений: 302
17.06.2014, 14:40 #4
Сначала вы вводите 2 числа n и m.
А затем матрицу размером n*m
0
Puporev
Модератор
54349 / 41942 / 28977
Регистрация: 18.05.2008
Сообщений: 98,786
17.06.2014, 14:53 #5
Цитата Сообщение от AlexKolc Посмотреть сообщение
А затем матрицу размером n*m
Особенно если
Pascal
1
a: array[1..1000, 1..1000] of integer;
1
Dimaalex11
0 / 0 / 0
Регистрация: 16.06.2014
Сообщений: 7
17.06.2014, 23:16  [ТС] #6
вот так написал,надо чуть исправить помоги пожалуйста
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
uses crt;
var a:array [1..100,1..100] of integer;
n,i,j,min: integer;
begin
write('Рахмер матрицы');
readln(n);
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:4);end;
writeln;end;
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
writeln;
writeln('min=',min);
writeln('Итоговая матрица');
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=(a[i,1])*min;
textcolor(12);
end;
writeln;
textcolor(green);
for i:=2 to n do
begin
for j:=2 to n do 
write(a[i,j]:4);
writeln;
end;end.
0
AlexKolc
191 / 161 / 116
Регистрация: 14.09.2013
Сообщений: 302
17.06.2014, 23:26 #7
Лучший ответ Сообщение было отмечено Dimaalex11 как решение

Решение

не забывай про форматирование, и тебе удобнее и нам проще твой код просматривать
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
uses crt;
var
  a:array [1..100,1..100] of integer;
  n,i,j,min: integer;
begin
  write('ГђГ*çìåð Г¬Г*òðèöû -> ');
  readln(n);
  writeln('ÈñõîäГ*Г*Гї Г¬Г*òðèöГ*:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(19)-9;
          write(a[i,j]:4)
        end;
      writeln
    end;
  min:=a[1,1];
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]<min then min:=a[i,j];
  writeln;
  writeln('min = ',min);
  writeln('ÈòîãîâГ*Гї Г¬Г*òðèöГ*: ');
  for i:=1 to n do
    begin
      if i = 1
        then textcolor(green)
        else textcolor(black);
      for j:=1 to n do
        begin
          if i = 1
            then a[i,j] := a[i,j]*min;
          write(a[i,j]:4,' ')
        end;
      writeln
    end
end.
1
17.06.2014, 23:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.06.2014, 23:26

Обнулить все элементы строки и столбца матрицы, на пересечении которых находится максимальный элемент матрицы
Определить максимальный элемент в произвольно заданной матрице Z размером m x n...

Создание Блок-схема. В массиве все элементы, кратные 4, заменить на минимальный элемент строки, в котором он расположен
Помогите пожалуйста,составить блок -схему программы . Заранее спасибо!!) {V...

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


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

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

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