Определить наименьшие элементы каждой строки матрицы и найти их сумму

@DanielDefo · Регистрация: 13.09.2009

Помогите решить программу.

В квадратной матрице А[5][5] определить наименьшие элементы каждого рядка и найти их суму.

Заранее спасибо.

@TarW · 11.06.2010, 19:16

Pascal

Uses
   crt;
Type
   TMas= array [1..5,1..5] of integer;
Var
   A : TMas;
   i , j : byte;
   min, sum : integer;
begin
clrscr;
{Ввод масива рандомно}
Randomize;
For i:=1 to 5 do
   begin
      For j:=1 to 5 do
         begin
             A[i,j]:= random(10)-5;
             write(A[i,j] : 5 );
         end;
       writeln;
    end;
{Минимальные элементы в каждой строке + их сумма}
writeln;
sum:=0;
For i:=1 to 5 do
   begin
      min:=A[i,1];
      For j:=1 to 5 do
          begin
              if A[i,j]< min then
                 min := A[i,j];
              sum:=sum+min;
         end;
       writeln('Минимальный элемент в ',i,'-ой строке равен ', min:5);
    end; 
writeln('Сумма минимальных элементов каждой строки равна ', sum: 5);
readln;
end.

@DanielDefo 5 / 5 / 1 Регистрация: 13.09.2009 Сообщений: 225
		1
	Определить наименьшие элементы каждой строки матрицы и найти их сумму 11.06.2010, 18:59. Просмотров 919. Ответов 1 Метки нет (Все метки) Помогите решить программу. В квадратной матрице А[5][5] определить наименьшие элементы каждого рядка и найти их суму. Заранее спасибо. 0

Опции темы

Определить наименьшие элементы каждой строки матрицы и найти их сумму

Решение