Даны действительные числа A1,.An . Получить квадратную матрицу порядка 8

@WebSofter · Регистрация: 27.11.2013

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

Даны действительные числа A1,...An . Получить квадратную матрицу порядка 8. Не поможете вы мне?

Kodzaev · 28.11.2013, 12:42

Так пойдет?

Pascal

const
  n = 8;
 
var
  a: array [1..n * n] of real;
  b: array [1..n, 1..n] of real absolute a;
  i, j: integer;
 
begin
  Randomize;
  Writeln('Массив:');
  for i := 1 to Sqr(n) do
  begin
    a[i] := 10 * Random;
    Write(a[i]:7:2);
  end;
  Writeln;
  Writeln('Матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(b[i, j]:7:2);
    Writeln
  end;
  Readln
end.

@WebSofter · 28.11.2013, 14:16 **[ТС]**

Kodzaev, Спасибо!

@WebSofter 0 / 0 / 1 Регистрация: 27.11.2013 Сообщений: 52
		1
	Даны действительные числа A1,.An . Получить квадратную матрицу порядка 8 27.11.2013, 18:56. Показов 1689. Ответов 2 Метки нет (Все метки) Даны действительные числа A1,...An . Получить квадратную матрицу порядка 8. Не поможете вы мне? 0

@WebSofter 0 / 0 / 1 Регистрация: 27.11.2013 Сообщений: 52
	28.11.2013, 14:16 [ТС]	3
	Kodzaev, Спасибо! 0

Даны действительные числа A1,.An . Получить квадратную матрицу порядка 8

Решение