Работа с массивами - Pascal (96933)

Формулировка задачи:

Дан квадрат, состоящий их столбцов и строк: 1. Нахождение наибольших элементов каждой строки 2.Нахождение сумм элементов каждого столбца Помогите кто чем может :'(

Решение задачи: «Работа с массивами»

Листинг программы

uses
  crt;
const
  str=5;{ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ}
  col=5;{ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў}
var
  a:array [1..str,1..col] of integer;
  i,j,max,sum:integer;
begin
  clrscr;
  {Г§Г*ГЇГ®Г«Г*ГїГҐГ¬ ГЁ ГўГ»Г»ГўГ®Г¤ГЁГ¬ Г¬Г*ГІГ°ГЁГ¶Гі}
  writeln('Г€Г±ГµГ®Г¤Г*Г*Гї Г¬Г*ГІГ°ГЁГ¶Г*:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {Г*Г*ГµГ®Г¤ГЁГ¬ Г¬Г*ГЄГ±ГЁГ¬ГіГ¬ ГЄГ*Г¦Г¤Г®Г© Г±ГІГ°Г®ГЄГЁ}
  for i:=1 to str do
  begin
    max:=a[i,1];
    sum:=0;
    for j:=1 to col do
    begin
      if a[i,j]>max then
        max:=a[i,j];
      inc(sum,a[j,i])
    end;
    writeln('ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«. ',i,' Г±ГІГ°Г®ГЄГЁ: ',max);
    writeln('Г‘ГіГ¬Г¬Г* ',i,' Г±ГІГ®Г«ГЎГ¶Г* ',sum)
  end
end.

Объяснение кода листинга программы

Список действий в коде:

Объявление переменных и массива.
Инициализация случайными значениями массива a[i,j].
Вывод значений массива a[i,j] в консоль в виде строк.
Поиск максимального значения в строке массива a[i,j].
Поиск суммы элементов в столбце массива a[i,j].
Вывод найденных максимального значения и суммы на экран.