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

@romster17 · Регистрация: 08.11.2013

Author24 — интернет-сервис помощи студентам

7. Разработать алгоритмы и программы решения задачи:
a) найти сумму наименьших элементов каждой строки матрицы размером 5х8, состоящей
из элементов целого типа.

@CodeR · 23.11.2013, 15:33

Pascal

Const n=5;m=8;
Var A:array[1..n,1..m] of integer;
    i,j,jmin:byte;
    s:integer;
Begin
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
    Begin
      jmin:=1;
      For j:=2 to m do
       if A[i,j]<A[i,jmin] then jmin:=j;
      s:=s+A[i,jmin];
    End;
    writeln('Сумма min элементов в каждой строке = ',s);
    readln;
End.

@romster17 0 / 0 / 0 Регистрация: 08.11.2013 Сообщений: 14
		1
	Найти сумму наименьших элементов каждой строки матрицы 22.11.2013, 18:04. Показов 1433. Ответов 1 Метки нет (Все метки) 7. Разработать алгоритмы и программы решения задачи: a) найти сумму наименьших элементов каждой строки матрицы размером 5х8, состоящей из элементов целого типа. 0

	23.11.2013, 15:33

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

Решение