Как это сделать?

@er1 · Регистрация: 26.12.2014

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

Дана квадратная матрица размером n найти и вывести элементы сумма которых больше половины главной диагонали

@Puporev · 19.05.2015, 10:15

Сообщение от er1

больше половины главной диагонали

Сам понял что написал?

Добавлено через 1 минуту
И вообще условие списывал с коленки после душа?

@er1 · 19.05.2015, 10:42 **[ТС]**

Дана квадратная матрица размером n найти и вывести числа которых больше суммы половины главной диагонали

@Puporev · 19.05.2015, 10:49

Сообщение от er1

больше суммы половины главной диагонали

может все же
больше половины суммы элементов главной диагонали

@er1 · 19.05.2015, 10:52 **[ТС]**

Сообщение от Puporev

может все же
больше половины суммы элементов главной диагонали

да, именно так.
помогите выполнить...

@Puporev · 19.05.2015, 11:18

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of real;
    n,i,j,k:integer;
    sm:real;
begin
randomize;
n:=strtoint(Edit1.Text);
Stringgrid1.Rowcount:=n;
Stringgrid1.Colcount:=n;
setlength(a,n,n);
sm:=0;
for i:=0 to n-1 do //нет фиксированных строк и столбцов
for j:=0 to n-1 do
 begin
  a[i,j]:=-10+20*random;
  Stringgrid1.Cells[j,i]:=format('%.2f',[a[i,j]]);
  if i=j then sm:=sm+a[i,j];
 end;
sm:=sm/2;
Memo1.Lines.Add('Половина суммы главной диагонали='+format('%.2f',[sm]));
k:=0;
for i:=0 to n-1 do
for j:=0 to n-1 do
if a[i,j]>sm then
 begin
   k:=1;
   Memo1.Lines.Add('a['+inttostr(i+1)+','+inttostr(j+1)+']='+format('%.2f',[a[i,j]]));
  end;
if k=0 then
Memo1.Lines.Add('Таких элементов нет')
end;

@er1 · 19.05.2015, 12:33 **[ТС]**

спасибо большое

@er1 0 / 0 / 0 Регистрация: 26.12.2014 Сообщений: 12
		1
	Как это сделать? 19.05.2015, 10:13. Показов 434. Ответов 6 Метки нет (Все метки) Дана квадратная матрица размером n найти и вывести элементы сумма которых больше половины главной диагонали 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.05.2015, 10:15	2
	Сообщение от er1 больше половины главной диагонали Сам понял что написал? Добавлено через 1 минуту И вообще условие списывал с коленки после душа? 0

@er1 0 / 0 / 0 Регистрация: 26.12.2014 Сообщений: 12
	19.05.2015, 10:42 [ТС]	3
	Дана квадратная матрица размером n найти и вывести числа которых больше суммы половины главной диагонали 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	19.05.2015, 10:49	4
	Сообщение от er1 больше суммы половины главной диагонали может все же больше половины суммы элементов главной диагонали 0

@er1 0 / 0 / 0 Регистрация: 26.12.2014 Сообщений: 12
	19.05.2015, 10:52 [ТС]	5
	Сообщение от Puporev может все же больше половины суммы элементов главной диагонали да, именно так. помогите выполнить... 0

@er1 0 / 0 / 0 Регистрация: 26.12.2014 Сообщений: 12
	19.05.2015, 12:33 [ТС]	7
	спасибо большое 0