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

@malenkaya12 · Регистрация: 10.12.2019

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

Пожалуйста, напишите оригинально
Составить программу на Паскале для обработки двумерного массива размерностью 3*4. Массив заполнить самостоятельно. Вычислить сумму положительных элементов каждой строки двумерного массива.

@ZX Spectrum-128 · 03.03.2020, 14:46

Pascal

const
  n = 4;
  m = 6;
 
var
  i, j, s: integer;
  a: array[1..n, 1..m] of integer;
 
begin
  randomize;
  writeln('Array: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -n * m div 2 + random(n * m);
      write(a[i, j]:5);
    end;
    writeln;
  end;
  for i := 1 to n do
  begin
    s := 0;
    for j := 1 to m do
      if a[i, j] > 0 then
        s := s + a[i, j];
    writeln('Sum: ', s, ' row ', i);
  end;
end.

@Andrew_97 · 03.03.2020, 19:31

Программа работает, но только массив заполняется рандомно (произвольным образом [-20;20]).
При помощи f8 (откладка) ты можешь отследить каждый шаг своей программы, т.е. узнать принцип работы.

const n=3; m=4;
var i,j,s:integer;
a:array[1..n,1..m]of integer;
sum:array[1..n]of integer;

begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(41)-20;
write(a[i,j]:4); end;
writeln; end;
s:=0;
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>0 then
s:=s+a[i,j];
sum[i]:=s;
s:=0; end;
writeln;
for i:=1 to n do
writeln('Сумма положительных элементов ',i,' строки:',sum[i]);
end.

Добавлено через 9 минут
Вот здесь вы водите вручную, вы можете это сделать за один раз, так как мы пользуемся оператором read, а этот оператор позволяет нам ввести сразу все значения в одну строку, read (<список переменных>); - ввод данных осуществляется через пробел; readln (<список переменных>); - ввод данных осуществляется через enter. Рекомендую изучить два варианта, так как преподаватель ваш может попросить это сделать одним из способов, в зависимости от вашей программы.

const n=3; m=4;
var i,j,s:integer;
a:array[1..n,1..m]of integer;
sum:array[1..n]of integer;

begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
writeln;

for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:4);
writeln; end;

s:=0;
for i:=1 to n do begin
for j:=1 to m do
if a[i,j]>0 then
s:=s+a[i,j];
sum[i]:=s;
s:=0; end;
writeln;
for i:=1 to n do
writeln('Сумма положительных элементов ',i,' строки:',sum[i]);
end.

@malenkaya12 0 / 0 / 0 Регистрация: 10.12.2019 Сообщений: 11
		1
	Вычислить сумму положительных элементов каждой строки двумерного массива 03.03.2020, 13:40. Показов 2326. Ответов 2 Метки нет (Все метки) Пожалуйста, напишите оригинально Составить программу на Паскале для обработки двумерного массива размерностью 3*4. Массив заполнить самостоятельно. Вычислить сумму положительных элементов каждой строки двумерного массива. 0

@Andrew_97 60 / 41 / 23 Регистрация: 09.02.2020 Сообщений: 233
	03.03.2020, 19:31	3
	Программа работает, но только массив заполняется рандомно (произвольным образом [-20;20]). При помощи f8 (откладка) ты можешь отследить каждый шаг своей программы, т.е. узнать принцип работы. const n=3; m=4; var i,j,s:integer; a:array[1..n,1..m]of integer; sum:array[1..n]of integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(41)-20; write(a[i,j]:4); end; writeln; end; s:=0; for i:=1 to n do begin for j:=1 to m do if a[i,j]>0 then s:=s+a[i,j]; sum[i]:=s; s:=0; end; writeln; for i:=1 to n do writeln('Сумма положительных элементов ',i,' строки:',sum[i]); end. Добавлено через 9 минут Вот здесь вы водите вручную, вы можете это сделать за один раз, так как мы пользуемся оператором read, а этот оператор позволяет нам ввести сразу все значения в одну строку, read (<список переменных>); - ввод данных осуществляется через пробел; readln (<список переменных>); - ввод данных осуществляется через enter. Рекомендую изучить два варианта, так как преподаватель ваш может попросить это сделать одним из способов, в зависимости от вашей программы. const n=3; m=4; var i,j,s:integer; a:array[1..n,1..m]of integer; sum:array[1..n]of integer; begin for i:=1 to n do for j:=1 to m do read(a[i,j]); writeln; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; s:=0; for i:=1 to n do begin for j:=1 to m do if a[i,j]>0 then s:=s+a[i,j]; sum[i]:=s; s:=0; end; writeln; for i:=1 to n do writeln('Сумма положительных элементов ',i,' строки:',sum[i]); end. 0

Опции темы