Процедуры и функции: вычислить общую сумму элементов строк, удовлетворяющих условиям

@Amali · Регистрация: 11.11.2018

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

Для матрицы А(7х3) вычислить общую сумму элементов строк,первый элемент которых положителен,а для матрицы В(6х4)-общую сумму элементов строк,в которых первый элемент больше единицы. Написать с помощью подпрограмм.
Нашла только на паскале.

Pascal

uses crt;
const nmax=20;
type mas=array[1..nmax,1..nmax] of real;
procedure Vvod(var a:mas;n,m:byte;c:char);
var i,j:byte;
begin
writeln('Исходная матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-5+10*random;
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
writeln
end;
 
function Sum(a:mas;n,m,k:byte):real;
var i,j:byte;
    sm:real;
begin
sm:=0;
for i:=1 to n do
if a[i,1]>k then
for j:=1 to m do
sm:=sm+a[i,j];
Sum:=sm;
end;
 
var a,b:mas;
begin
clrscr;
randomize;
Vvod(a,7,3,'A');
writeln('Сумма элементов в строках, начинающихся с элементов>0=',Sum(a,7,3,0):0:2);
Vvod(b,6,4,'B');
writeln('Сумма элементов в строках, начинающихся с элементов>1=',Sum(b,6,4,1):0:2);
readln
end.

	18.11.2018, 20:22