Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и произведение элементов K-й строки данной матрицы.

@Skalpel · Регистрация: 06.10.2010

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

Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и произведение элементов K-й строки данной матрицы.
Помогите пожалуйста. Очень очень надо

@rangerx · 13.10.2010, 18:41

Pascal

program prog;
 
uses
  Crt;
const
  M = 3;
  N = 4;
var
  matrix: array[1..M, 1..N] of Integer;
  i, j: Integer;
  k: Integer;
  sum: Integer;
  product: Integer;
begin
  ClrScr;
  Randomize;
  for i:= 1 to M do begin
    for j:= 1 to N do begin
      matrix[i,j]:= Random(10);
      Write(matrix[i,j]:3);
    end;
    WriteLn;
  end;
 
  {-------------------------------}
  repeat
    WriteLn('Input K: ');
    ReadLn(k);
  until (K >= 1) and (K <= M);
 
  sum:= 0;
  product:= 1;
  for j:= 1 to N do begin
    sum:= sum + matrix[K,j];
    product:= product * matrix[K,j];
  end;
 
  WriteLn('сумма: ', sum);
  WriteLn('произведение: ', product);
 
  ReadLn;
end.

Добавлено через 17 минут
Ну и ещё для разнообразия(преподавателю это показывать не надо

)

Pascal

program prog;
 
uses
  Crt;
 
type
  pInteger = ^Integer;
  BinFunc = function(a, b: Integer): Integer;
 
{------------------------}
function accumulate(first, last: pInteger; v: Integer; func: BinFunc): Integer;
begin
  while(first <= last) do begin
    v:= func(v, first^);
    Inc(first);
  end;
  accumulate:= v;
end;
 
{------------------------}
function sum(a, b: Integer): Integer; begin sum:= a + b; end;
function mul(a, b: Integer): Integer; begin mul:= a * b; end;
 
{------------------------}
const
  M = 3;
  N = 4;
var
  matrix: array[1..M, 1..N] of Integer;
  i, j: Integer;
  k: Integer;
begin
  ClrScr;
  Randomize;
  for i:= 1 to M do begin
    for j:= 1 to N do begin
      matrix[i,j]:= Random(10);
      Write(matrix[i,j]:3);
    end;
    WriteLn;
  end;
 
  //-------------------------------
  repeat
    WriteLn('Input K: ');
    ReadLn(k);
  until (K >= 1) and (K <= M);
 
  WriteLn( 'сумма: ', accumulate(@matrix[k,1], @matrix[k,N], 0, sum) );
  WriteLn( 'произведение: ', accumulate(@matrix[k,1], @matrix[k,N], 1, mul) );
 
  ReadLn;
end.

этот вариант под TP скорее всего не скомпилируется...

@tahaa · 04.11.2014, 16:38

C#

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            int i, j, m, n,k,Sum=0,A=1;
            Random x = new Random();
            Console.WriteLine("m=");
            m = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine("n=");
            n = Convert.ToInt32(Console.ReadLine());
            Console.WriteLine();
            int[,] a = new int[m, n];
            for (i = 0; i < m; i++)
            {
                for (j = 0; j < n; j++)
                {
                    a[i, j] = x.Next(0, 5);
                }
            }
 
            for (i = 0; i < m; i++)
            {
                for (j = 0; j < n; j++)
                {
                    Console.Write(a[i, j] + "   ");
                }
 
                Console.WriteLine();
            }
            Console.WriteLine("vvedite K");
 
      k = Convert.ToInt32(Console.ReadLine());
 
            for (i = 0; i < m; i++)
            
                for (j =0; j<n; j++)
                
                    if (i == (k-1))
                    { Sum += a[i, j];
                        A*=a[i,j]; }
                Console.WriteLine("Sum= "+Sum+" \n proizvedenie ="+A);
  Console.ReadKey();
 
        }
    }
    }

@Cyborg Drone · 04.11.2014, 18:18

Не по теме:

tahaa, Вы написали код C# в общий раздел Pascal. Будьте, пожалуйста, внимательнее. Скорее всего, Ваш код Skalpel-ю ну никак не требуется.

tahaa, а C#... Он какой? Такой?

Название: Cdiez.gif
Просмотров: 209

Размер: 2.7 Кб

@Skalpel 2 / 2 / 0 Регистрация: 06.10.2010 Сообщений: 38
		1
	Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и произведение элементов K-й строки данной матрицы. 13.10.2010, 17:32. Показов 12829. Ответов 3 Метки нет (Все метки) Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и произведение элементов K-й строки данной матрицы. Помогите пожалуйста. Очень очень надо 0

@Cyborg Drone
	04.11.2014, 18:18 Дана матрица размера M × N и целое число K (1 ≤ K ≤ M). Найти сумму и произведение элементов K-й строки данной матрицы. #4
	Не по теме: tahaa, Вы написали код C# в общий раздел Pascal. Будьте, пожалуйста, внимательнее. Скорее всего, Ваш код Skalpel-ю ну никак не требуется. tahaa, а C#... Он какой? Такой? 0