Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм

@danil663 · Регистрация: 11.06.2013

1. Дана действительная матрица размером n x m (n,m <10). Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм. Заменить нулями значение элементов матрицы, рассположенные в первом столбце и распечатать полученную матрицу. Размер матрицы и ее элементы вводятся с клавиатуры. Оформить ввод и вывод матрицы.

Комментарий модератора

danil663, Множественные задания в одной теме запрещены правилами форума. Для каждой задачи создавайте отдельную тему.
Ваша вторая тема: https://www.cyberforum.ru/pascal/thread906651.html

Добавлено через 2 часа 39 минут
актуально очень

Добавлено через 16 часов 34 минуты
актуально)

@ermolay · 19.06.2013, 14:48

Pascal

var
  a: array[1..9,1..9] of real;
  n,m,i,j: integer;
  min,s: real;
begin
  write('Ââåäèòå ðàçìåðû ìàòðèöû n, m (n, m < 10): ');
  readln(n,m);
  writeln('Ìàòðèöà:');
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
    end;
  min:=0;
  writeln('Ñóììû ñòîëáöîâ:');
  
  for i:=1 to n do min:=min+a[i,1];
  write(min:8:2);
  for j:=2 to m do
  begin
    s:=0;
    for i:=1 to n do
      s:=s+a[i,j];
    if s<min then min:=s;
    write(s:8:2);
  end;
  writeln;
  writeln('Ìèíèìàëüíàÿ ñóììà = ',min:0:2);
  writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if j=1 then a[i,j]:=0;
      write(a[i,j]:8:2);
    end;
    writeln;
  end;
  readln;
end.

Опции темы

Подсчитать сумму каждого столбца матрицы и найти минимальное значение среди полученных сумм

Решение