Дан двумерный массив целых чисел. Определить максимальное значение среди элементов пятой строки массива - Pascal ABC

  1. Дан двумерный массив целых чисел. Определить максимальное значение среди элементов пятой строки массива. Помогите написать программку! =)


textual

Код:

const nmax=30;
var a: array[1..nmax,1..nmax] of integer;
i,j,n,max:integer;  
begin
  write('Введите n: ');  
  readln(n);
  if (n<5) then writeln('Размерность матрицы не соответствует условию')
  else
  begin
    writeln('Введите матрицу: ');
    for i:=1 to n do
      for j:=1 to n do
        readln(a[i,j]);
        
    writeln('Исходная матрица: ');
    for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j],' ');
      writeln;
    end;
    
    max:=a[5,1];
    for j:=1 to n do
      if (a[5,j]>max) then max:=a[5,j];
    
    writeln('Максимальный элемент 5-й строки = ',max);
  end;
end.


Похожие ответы
  1. Проверьте, правильно ли работает программа. А именно PROCEDURE BSr, и правильность передачи переменных в основную программу. ЗАДАНИЕ: Сформировать массив из чисел, больших среднего.

  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

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

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). В первом массиве осуществить циклический сдвиг вправо на a позиций, во втором на b, в третьем на c. Нужно сделать через процедуры Заранее благодарю

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. Нужно написать прогу плиз) Буду благодарен)) Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного нулевого элемента; 2) встречается ли более од¬ного раза максимальное из чисел в заданной матрице.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 var     f,r: file of char;     c: char;  i, n: byte; begin     assign (f, 'd:\input.txt');     assign (r, 'd:\output.txt');     reset (f);  while not eof (f) do begin         read (f, c);         writeln (c);     end; rewrite (r);  for i:=1 to n do begin  write(f,c);  readln (c);         write (r, c); end;     close (f);     close (r);   readln end.В файл output массив не записывается

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Дан прямоугольный массив целых положительных чисел. Отыскать в массиве строку с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.