Матрица

@Евгения01 · Регистрация: 29.10.2015

Delphi Дано число n(0<k<11) и матрицу размера NxM. Найти сумму и произведение элементов n-го столбца данной матрицы. Помогите, пожалуйста, срочно нужно

Delphi

a:array of array of integer;
i,j:integer;
sum,pr:integer;
begin
sum:=0;
 pr:=1;
setlength(a,strtoint(edit1.Text),strtoint(edit2.Text));
stringgrid1.ColCount := strtoint(edit1.Text);
stringgrid1.RowCount := strtoint(edit2.Text);
  for i:=0 to strtoint(edit1.Text)-1  do
  for j:=0 to strtoint(edit2.Text)-1 do
 begin
  a[i,j]:=random(10);
  stringgrid1.Cells [i,j]:=inttostr(a[i,j]);
   sum:=sum+a[i,j];
   pr:=pr*a[i,j];
          end;
label1.Caption:=inttostr(sum);
 label2.Caption:=inttostr(pr);

Добавлено через 1 час 14 минут
Пожалуйста

@ZX Spectrum-128 · 02.04.2018, 18:41

Матрица: найти сумму элементов k-го столбца матрицы.

@ZX Spectrum-128 6804 / 4563 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	02.04.2018, 18:41	2
	Матрица: найти сумму элементов k-го столбца матрицы. 0

Опции темы