Составить программку в PASCAL.Ввести размерность матрицы и значения ее элементов. Определить

Составить программку в PASCAL.
Ввести размерность матрицы и значения ее частей.
Найти наибольший и минимальный элемент. Переставить их местами.
Отыскать среднее арифметическое отрицательных частей в i-ой строке.

Задать свой вопрос
Хорошева Мария
ого, массивы? позже может напишу, когда медли много будет
Почтарь Павел
Это Вы решили всем сказать, насколько сейчас заняты?
Karina Gromenko
нет, это я отметил, что задание сложное и медли необходимо много, чтоб разобраться, так что без наездов, пожалуйста ;-)
Чалиновский Виталий
Да кому это интересно, что оно для Вас трудное? Его теснее двое решили...
Степан Симолицин
приветствую, у меня ни компилятора, ни учебника под рукою, и если что, вы сами на этот ответ напросились, ой, все кратче:)))
Никита Притуленко
Это Вы все из серии надписи на заборе "Здесь был ВАСЯ". Теперь весь мир знает, какой несчастный Stack331: медли нет, компиляторов нет, учебников нет...
1 ответ
Const
  m1 = 20;
  n1 = 20;

var
  a: array[1..m1, 1..n1] of integer;
  b: array[1..m1] of real;
  i, j, m, n, max, min, t, imax, jmax, imin, jmin, s, kn: integer;

begin
  Write('Введите через пробел число строк и столбцов массива: ');
  Readln(m, n);
  max := -32768; min := 32767;
  for i := 1 to m do
  begin
    Write('Строчка ', i, ': ');
    for j := 1 to n do
    begin
      Read(t);
      a[i, j] := t;
      if max lt; t then begin max := t; imax := i; jmax := j end
      else if min gt; t then begin min := t; imin := i; jmin := j end
    end
  end;
  a[imax, jmax] := min; a[imin, jmin] := max;
  Writeln('Результирующий массив');
  for i := 1 to m do
  begin
    s := 0; kn := 0;
    for j := 1 to n do
    begin
      Write(a[i, j]:6);
      if a[i, j] lt; 0 then begin s := s + a[i, j]; Inc(kn) end
    end;
    Writeln;
    if kn gt; 0 then b[i] := s / kn else b[i] := 0
  end;
  Writeln('Среднее арифметическое отрицательных частей построчно:');
  for i := 1 to m do Writeln(b[i]:10:4)
end.

Тестовое решение:
Введите через пробел число строк и столбцов массива: 4 6
Строчка 1: 5 -3 0 7 11 -4
Строчка 2: 14 -12 -7 13 11 18
Строчка 3: 3 11 8 -14 25 15
Строчка 4: 15 0 -17 21 0 -21
Результирующий массив
     5    -3     0     7    11    -4
    14   -12    -7    13    11    18
     3    11     8   -14   -21    15
    15     0   -17    21     0    25
Среднее арифметическое отрицательных частей построчно:
   -3.5000
   -9.5000
  -17.5000
  -17.0000



, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт