Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/15: Рейтинг темы: голосов - 15, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 11.11.2014
Сообщений: 11
1

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

11.11.2014, 16:23. Просмотров 2957. Ответов 6
Метки нет (Все метки)


Сформировать двумерный массив А размером 6*8 с по мощу генератора случайных чисел и вывести элементы массива на экран. Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив В. Вывести элементы массива В на экран.
Есть пример но там че то неправильно не так в конце писал.+
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
const
  n = 6;m = 8;
 
var
  A: array [1..n, 1..m] of integer;
  B: array [1..M] of real;
  i, j: integer;
 
begin
  randomize;
  write('массив A:');
  writeln;
  writeln;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(50);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:5);
    writeln;
    writeln;
  end;
  for i := 1 to n do
  begin
    B[i] := 0;
    for j := 1 to m do
    begin
      B[i] := B[i] + A[i, j];
    end;
    B[i] := B[i] / m;
    writeln('Среднее ', i, ' строки = ', B[i]:10:2);
  end;
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2014, 16:23
Ответы с готовыми решениями:

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

Найти наибольшие элементы каждой строки матрицы и записать в отдельный массив. Вложенные циклы.
Дан массив А(К на К).Найти наибольшие элементы каждой строки и запомнить в отдельный...

Найти наибольшие элементы каждой строки матрицы X(10×20) и записать их в массив Y
Найти наибольшие элементы каждой строки матрицы X(10×20) и записать их в массив Y.

Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив Y
Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив Y. P.S. В...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
6
0 / 0 / 0
Регистрация: 11.11.2014
Сообщений: 11
11.11.2014, 18:15  [ТС] 3
Ладно там почти все тоже самое но там рандома нет! Помоги! составить правильно!
0
Эксперт Pascal/Delphi
6582 / 4432 / 4722
Регистрация: 05.06.2014
Сообщений: 21,756
11.11.2014, 18:52 4
Лучший ответ Сообщение было отмечено rambox360 как решение

Решение

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
Uses Crt;
Var A:array[1..20,1..20] of integer;
    B:array[1..20] of integer;
    i,j,n,m:byte;
Begin
    ClrScr;Randomize;
    write('Кол-во строк: ');readln(n);
    write('Кол-во столбцов: ');readln(m);
    For i:=1 to n do
     For j:=1 to m do
     Begin
       a[i,j]:=random(n*m)-m*n div 2;
//       write('A[',i,',',j,'] = ');
//       readln(A[i,j]);
     End;
    ClrScr;
    writeln('Матрица');
    For i:=1 to n do
    Begin
      B[i]:=A[i,1];
      For j:=1 to m do
      Begin
        write(A[i,j]:4);
        if A[i,j]>B[i] then B[i]:=A[i,j];
      End;
      writeln;
    End;
    writeln('Полученный массив');
    For i:=1 to n do
     write(B[i]:4);
    readln;
End.
1
0 / 0 / 0
Регистрация: 11.11.2014
Сообщений: 11
12.11.2014, 16:48  [ТС] 5
Опишите в кратце пожалуйста процедуру решения после ClrScr.

Добавлено через 21 час 35 минут
После 16 строки
0
51 / 59 / 24
Регистрация: 03.09.2010
Сообщений: 1,242
12.11.2014, 16:55 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
writeln('Матрица');
    For i:=1 to n do
    Begin
      B[i]:=A[i,1]; // копируем в массив 1-е элементы каждой строки
      For j:=1 to m do
      Begin
        write(A[i,j]:4);
        if A[i,j]>B[i] then B[i]:=A[i,j];  // если находим элемент в строке, который больше чем 1-й, то перезаписываем его в массив, т.е. мы находим максимальный элемент каждой строки
      End;
      writeln;
    End;
    writeln('Полученный массив');
//выводим массив на экран
    For i:=1 to n do
     write(B[i]:4);
    readln;
1
0 / 0 / 0
Регистрация: 11.11.2014
Сообщений: 11
12.11.2014, 16:57  [ТС] 7
123
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2014, 16:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Найти наибольшие элементы каждой строки матрицы и записать их в одномерный массив Y
Помогите пожалуйста! Очень нужна ваша помощь! Найти наибольшие элементы каждой строки матрицы и...

Динамические массивы. Найти наибольшие элементы каждой строки матрицы Х и записать их в массив Y
Найти наибольшие элементы каждой строки матрицы Х и записать их в массив Y. Размер Марицы вводить с...

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

Для каждой матрицы найти наибольшие элементы каждой строки
Дано матрицы А (5,2) и Y (3,2). Для каждой из них найти самые элементы каждой строки и записать в...


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

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

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