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

@Cepera7778 · Регистрация: 06.12.2012

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

Дан двухмерный массив. Определить:
а) в, какой строке массива сумма элементов больше: в первой или в предпоследней;
б) в каком столбце массива сумма элементов меньше: во втором или в последнем?

@CodeR · 07.12.2012, 07:35

Pascal

Var A:array[1..20,1..20] of integer;
    i,j,n,m,s1,s2:integer;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    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;
    s1:=0;s2:=0;
    For j:=1 to m do
    Begin
      s1:=s1+A[1,j];
      s2:=s2+A[n-1,j];
    End;
    writeln('В первой строке сумма = ',s1);
    writeln('В предпоследней строке сумма = ',s2);
    if s1>s2 then writeln('В первой')
     else if s1<s2 then writeln('В предпоследней')
      else writeln('Равны');
    s1:=0;s2:=0;
    For i:=1 to m do
    Begin
      s1:=s1+A[i,2];
      s2:=s2+A[i,n];
    End;
    writeln('Во втором столбце сумма = ',s1);
    writeln('В последнем столбце сумма = ',s2);
    if s1>s2 then writeln('Во второй')
     else if s1<s2 then writeln('В последней')
      else writeln('Равны');
    readln;
End.

@Cepera7778 0 / 0 / 0 Регистрация: 06.12.2012 Сообщений: 11
		1
	Определить в какой строке матрицы сумма элементов больше: в первой или в предпоследней 07.12.2012, 07:20. Показов 2131. Ответов 1 Метки нет (Все метки) Дан двухмерный массив. Определить: а) в, какой строке массива сумма элементов больше: в первой или в предпоследней; б) в каком столбце массива сумма элементов меньше: во втором или в последнем? 0

	07.12.2012, 07:35

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

Решение