Информатика Практика / 14

Program praktika14;
Uses CRT;
Const n=5;
Var a: Array [1..n,1..n] Of Integer;
i, g, v_min, v_max, s_max, s_max1, s_min, s_min1, s_i, s_g: Integer;
Begin
Randomize;
WriteLn('Задайте дапазон случайныхчисел:');
Write('v_min = ');
ReadLn(v_min);
Write('v_max = ');
ReadLn(v_max);
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
a[i,g]:=Random(v_max-v_min+1)+v_min;
End;
End;
WriteLn;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
For g:= 1 to n Do
Begin
s_min1:=s_min1+a[1,g];
End;
s_i:=1;
For i:= 1 to n Do
Begin
s_max1:=s_max1+a[i,1];
End;
s_g:=1;
For i:= 1 to n Do
Begin
s_min:=a[i,1];
For g:= 1 to n Do
Begin
s_min:=s_min+a[i,g];
End;
If (s_min<s_min1)
Then s_i:=i;
End;
For g:= 1 to n Do
Begin
s_max:=a[g,1];
For i:= 1 to n Do
Begin
s_max:=s_max+a[i,g];
End;
If (s_max>s_max1)
Then s_g:=g;
End;
WriteLn;
WriteLn('строка с минимальной суммой элементов = ', s_i);
WriteLn;
WriteLn('столбец с максимальной суммой элементов = ', s_g);
ReadLn;
End.