0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 43
1

Заполнить одномерный массив разностями наибольших значений элементов строк

21.04.2015, 13:15. Показов 1265. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан двумерный массив.Заполнить одномерный массив разностями наибольших и наименьших значений элементов строк, вывести полученную информацию на экран и номера строк, в которых разности одинаковые.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2015, 13:15
Ответы с готовыми решениями:

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

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

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

Определить одномерный массив, элементы которого равны разностям наибольших и наименьших значений элементов строк матрицы
дана матрица вещественных чисел размером М на N. определить одномерный массив b1,b2..bn,элементы...

1
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
22.04.2015, 11:09 2
Лучший ответ Сообщение было отмечено booz как решение

Решение

(С) Joy, erl27

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=5;
var
  a:array[1..n,1..n] of integer;
  b,i,j,k,m:integer;
  b1,b2:array[1..n] of integer;
begin
  randomize;
  writeln('Оригинальная матрица:');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=random(n);
      write(a[i,j]:5);
    end;
    writeln;
  end;
  for j:=1 to n do begin
    k:=a[1,j];     m:=a[1,j];
    for i:=1 to n do begin
      if a[i,j]<k then k:=a[i,j];
      if a[i,j]>k then m:=a[i,j];
    end;
    b1[j]:=m-k;
  end;
  writeln('Массив из разностей наименьших и наибольших элементов строк:');
  write('[ ');
  for i:=1 to n do write(b1[i]:5);writeln(']':5);
  writeln('Номера строк, в которых разности одинаковые:');
  for i := 2 to N do
    for j := 1 to i - 1 do
      if b1[i] = b1[j] then begin
        writeln('Номера: ', j, ' и ', i);
      end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2015, 11:09
Помогаю со студенческими работами здесь

Заполнить одномерный массив разностями наибольших и наименьших значений элементов строк двумерного массива
Дан двумерный массив. Заполнить одномерный массив разностями наибольших и наименьших значений...

Заполнить одномерный массив, произведениями значений элементов строк матрицы
Разработать информационную технологию, позволяющую заполнить одномерный массив, произведениями...

Из двумерного массива [5,6] заполнить одномерный массив из наибольших по модулю элементов столбцов
Дан двумерный массив размерностью 5 х 6, заполненный целыми числами с клавиатуры. Сформировать...

Сформировать линейный массив из суммы наибольших и наименьших значений элементов строк
Задан прямоугольный массив. Сформировать линейный массив из суммы наибольших и наименьших значений...


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

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

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