Построить матрицу, которая образуется из исходной добавлением к ней строки максимальных значений по столбцам - Pascal

  1. Обработка двумерных массивов (матриц) Разработать программу, в которой предусмотреть: - ввод размерности NxM двумерного массива А, - задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1]. ВАРИАНТ ЗАДАНИЯ : Построить новую матрицу, которая образуется из исходной добавлением к ней строки максимальных значений по столбцам.


textual

Код к задаче: «Построить матрицу, которая образуется из исходной добавлением к ней строки максимальных значений по столбцам - Pascal»

const
  n=5;m=4;k=10;
var
  a:array[1..n,1..m] of integer;
  b:array[1..n+1,1..m] of integer;
  i,j,z:integer;
begin
  randomize;
  repeat
    writeln('Матрица[',n,'x',m,']:');
    writeln('1. Ручной ввод матрицы');
    writeln('2. Автоматический ввод');
    write('Ваш выбор:');
    readln(i);
  until i in [1,2];
  if i=1 then begin
    writeln('Вводите строки матрицы:');
    for i:=1 to n do begin
      writeln('Строка ',i,':');
      for j:=1 to m do read(a[i,j]);
    end;
  end
  else
    for i:=1 to n do begin
      for j:=1 to m do begin
       a[i,j]:=random(k);
       write(a[i,j]:4);
      end;
      writeln;
    end;
  for j:=1 to m do begin
    b[n+1,j]:=a[1,j];
    for i:=1 to n do begin
      if a[i,j]>b[n+1,j] then b[n+1,j]:=a[i,j];
      b[i,j]:=a[i,j];
    end;
  end;
  writeln('Полученная матрица:');
    for i:=1 to n+1 do begin
      for j:=1 to m do write(b[i,j]:4);
      writeln;
    end;
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.000 из 5



Похожие ответы
  1. Найти область определения функции D(f), ее нули, экстремумы и множества значений W(f). Построить график функции нарисовав и раметив оси координат. y=2^(x*x-3x+2)

  1. Найти область определения функции D(f), ее нули экстремумы и множество значений W(f) построить график функций нарисовав и разместив оси координат y=x^3-3x^2+2 (Pascal abc)

  1. Найти область определения функции D(f), ее нули, экстремумы и множества значений W(f). Построить график функции, нарисовав и разметив оси координат. (В паскале). y=1/(1+x^2)

  1. Я написал программу решения уравнение методом ньютона. Вот только нужно еще построить график на интервале [0;5]. И показать на графике эти точки.

  1. У некоторого исполнителя, обрабатывающего числа, есть три команды: +1, +2, *3. Исполнитель получает на вход некоторое число и программу, представляющую собой некоторую последовательность вышеназванных команд. На выходе он выдает новое число - результат применения программы к исходному числу. Вам предлагается написать программу - анализатор данного исполнителя. На вход программе подаются два числа х и у, каждое из которых лежит в диапазоне от 0 до 200 (включая границы) и при этом гарантируется, что х меньше, либо равно у. Ваша программа должна подсчитать, сколько возможно построить различных программ для исполнителя, которые преобразуют число х в у. В качестве ответа нужно вывести одно целое число.Добавлено через 37 секунд Буду рад оперативной помощи, заранее спасибо!

  1. Даны действительные положительные числа a b c. Можно ли построить такой треугольник? Найти углы треугольника.

  1. Построить последовательность целых чисел a1, ..., a30, где a1=1, a2=1, a[i]=a[ i/2 ]+ a[i – 2] (i=3, ..., 30).

  1. Помогите составить график функции корень квадратний из x