Задание выполнить ** языке Паскаль, ** Паскале двумерный массив статический. Дана...

Question

Задание выполнить на языке Паскаль, На Паскале двумерный массив статический. Дана прямоугольная таблица вещественных чисел. Среди сумм элементов строк найти значение максимальной.

Answer 1

                                                                             

program raf105;

const

 Ns = 3; //Длинна столбца

 Nc = 4; //Длинна строки

var

 a:array[1..Ns,1..Nc] of real;

 sums,max:real;

 i,j:integer;

begin

 max:= -(9**38);

 for i:=1 to Ns do

 begin

   if sums > max

     then max:= sums;

   sums:= 0;

   for j:=1 to Nc do

   begin

     write('Введите значение элемента ',i,' строки, ',j,' солбца: ');

     readln(a[i,j]);

     sums += a[i,j];

   end;

 end;

 writeln;

 writeln('Максимальная сумма элементов из одной строки: ',max);

end.