Начала программирования. Двумерные массивы
методическая разработка по информатике и икт по теме

Двумерный массив 

размера 4*2

Массив А

A[i,j]-имя элемента массива из строки i, столбца j

20-значение элемента массива A[4,2]

Задача

1. Ввести данные из двумерного массива размера N*M. (значения N,M и массив находятся в файле Input.txt, см. ВВОД),
2. Найти и напечатать максимальные значения элементов в строках
3. Найти и напечатать значения сумм значений элементов в строках
4. Вывести данные из двумерного массива в файл Output.txt(см ВЫВОД)

ВВОД

4 2

2 6

10 5

12 12

4 20

ВЫВОД

         2    6

  10    5

  12  12

    4  20

           6     10    12    20

           8     15    24    24

Var      a:array[1..100,1..50] of integer;

i,j,N,M,max,s:integer;

Mmax,Ms:array[1..100] of integer;

begin

assign(input,'Input.txt');reset(input);

assign(output,'output.txt');rewrite(output);

readln(N,M);

{Ввод данных в двумерный массив по строкам}

for i:=1 to N do

 begin

  for j:=1 to M do

   begin

     read(a[i,j]);

   end;

  readln;

 end;

{Нахождение максимумов в строках}

for i:=1 to N do

 begin

  max:=a[i,1];

  for j:=1 to M do

   begin

     if a[i,j]> max then max:=a[i,j];

   end;

  Mmax[i]:=max;

 end;

{Нахождение сумм в  строках}

for i:=1 to N do

 begin

  s:=0;

  for j:=1 to M do

   begin

    s:=s+a[i,j];

   end;

  Ms[i]:=s;

 end;

{Вывод данных из двумерного массива по строкам }

for i:=1 to N do

 begin

  for j:=1 to M do

   begin

     write(a[i,j]:5);

   end;

  writeln;

 end;

for i:=1 to N do{Вывод максимумов}

 begin

  write(Mmax[i]:6);

 end;

 writeln;

for i:=1 to N do{Вывод сумм}

 begin

  write(Ms[i]:6);

 end;

 writeln;

close(input);

close(output);

end.

ВВОД

1  3  6

2  1  5

6  8  1

4  2  3

ВЫВОД

1  3  6

1  2  6  4

0 1 1

14

8

1

1  3  6

0  1  1

6  8  1

4  2  3