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

@dumb · Регистрация: 16.02.2015

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

Использование суб-функцию для вычисления суммы положительных элементов каждой строки матрицы
A(10;12) B(15;10)
POmogite resiti,zaranee spasibo

@Puporev · 09.03.2010, 19:04

Pascal

uses crt;
type mas=array[1..12] of integer;
     matr=array[1..15] of mas;
function Summa(v:mas;x:byte):integer;
var s:integer;
    i:byte;
begin
s:=0;
for i:=1 to x do
if v[i]>0 then s:=s+v[i];
Summa:=s;
end;
var a,b:matr;
    i,j:byte;
begin
clrscr;
randomize;
writeln('Матрица A:');
for i:=1 to 10 do
 begin
  for j:=1 to 12 do
   begin
    a[i,j]:=random(20)-9;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('Суммы положительных элементов в строках:');
for i:=1 to 10 do
writeln('Строка ',i:2,'=',Summa(a[i],12):4);
write('Press Enter...');
readln;
writeln('Матрица B:');
for i:=1 to 15 do
 begin
  for j:=1 to 10 do
   begin
    b[i,j]:=random(20)-9;
    write(b[i,j]:4);
   end;
  writeln;
 end;
write('Press Enter...');
readln;
writeln('Суммы положительных элементов в строках:');
for i:=1 to 15 do
writeln('Строка ',i:2,'=',Summa(b[i],10):4);
readln
end.

@dumb 0 / 0 / 0 Регистрация: 16.02.2015 Сообщений: 1
		1
	Вычисление суммы положительных элементов каждой строки матрицы 09.03.2010, 18:39. Показов 3796. Ответов 1 Метки нет (Все метки) Использование суб-функцию для вычисления суммы положительных элементов каждой строки матрицы A(10;12) B(15;10) POmogite resiti,zaranee spasibo 0

	09.03.2010, 19:04

Опции темы

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

Решение