Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.
Program zadacha;
const n=10;
var
a:array [1..n] of integer;
i,min,max,sum:integer;
begin
writeln('Введите элементы:');
for i := 1 to n do read(a[i]);;
max:=-10000; min:=10000;
for i:=i to n do
if (a[i]>max) then max := a[i];
writeln('Максимальное число в массиве: ',max);
for i:=1 to n do
if (a[i]<min) then min:=a[i];
writeln('Минимальное число в массиве: ',min);
for i := 1 to n do sum:=sum+a[i];
writeln('Сумма всех чисел массива = ',sum);
End.
Объяснение:
min ставим наибольшим, чтобы оно постепенно уменьшалось в сравнении. max ставим от наименьшего, чтобы оно увеличивалось в сравнении.
При суммировании необязательно обнулять переменную (в данном случае sum), т.к. у нас немного действий.