var a:array of array of integer;
    m,n,i,j,x,max:integer;
begin
Memo1.Clear;
n:=strtoint(Edit1.Text);
m:=strtoint(Edit2.Text);
Stringgrid1.Rowcount:=n;
Stringgrid1.Colcount:=m;
setlength(a,n,m);
for i:=0 to n-1 do 
for j:=0 to m-1 do
 begin
  a[i,j]:=random(10)-5;
  Stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
 end;
 x:=0;
for i:=0 to n-1 do
  begin
    for j:=0 to m-1 do
        if a[i,j] > 0 then
        x:= x+a[i,j];
       memo1.lines.add(inttostr(x));
       x:=0;
  end;
 end;

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.12.2018, 17:44

Ответы с готовыми решениями:

Вычислить суммы элементов каждой строки матрицы
Дана матрица X(N,N). Вычислить суммы элементов каждой строки матрицы и наибольшую из вычисленных...

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

Вычислить количество положительных и отрицательных элементов каждой строки матрицы
Вычислить количество положительных и отрицательных элементов каждой строки матрицы b(n*m) записать...

Найти для каждой строки матрицы среднее арифметическое положительных элементов
Дана матрица A из N строк и N столбцов. Если в матрице А нет элементов, абсолютная величина которых...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.12.2018, 17:44

Помогаю со студенческими работами здесь

Вычислить суммы положительных элементов каждой строки матрицы
Нужно решить задачу такого рода: Вычислить суммы положительных элементов каждой строки матрицы X...

Вычисление суммы положительных элементов каждой строки матрицы
Использование суб-функцию для вычисления суммы положительных элементов каждой строки матрицы...

Как вычислить суммы положительных элементов каждой строки матрицы?
пожалуйста,помогите написать программу. Даны целые числа n, m и матрица целых чисел A. Вычислить...

Вычисление суммы положительных элементов каждой строки матрицы (подпрограмма)
1. Написать программу решения следующей задачи: Вычислить и запомнить суммы положительных элементов...

Вычислить суммы положительных элементов каждой строки матрицы X(10x10)
вычислить суммы положительных элементов каждой строки матрицы X(10x10), определить наибольшее...

Из суммы положительных элементов каждой строки матрицы сформировать новый массив.
Дан двумерный массив целых чисел, состоящий из n строк и mстолбцов, заполненный случайным...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх