1 Тема від pro100tapik Востаннє редагувалося pro100tapik (19.11.2012 22:11:40)

  • pro100tapik
  • Користувач
  • Поза форумом
  • Дата реєстрації: 19.11.2012
  • Повідомлень: 3
    • Репутація: 1

Тема: Двовимірний масив. Матриці.

Задати масив n * n і k <= n число. Розділити елементи k-рядки на діагональний елемент, розташований в цьому рядку. Вивести обидві матриці.

2 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 089
    • Репутація: 2282

Re: Двовимірний масив. Матриці.

Може хтось тут і володіє телепатичними здібностями, але особисто я нічого не зрозумів.

Подякували: Replace1

3 Відповідь від pro100tapik

  • pro100tapik
  • Користувач
  • Поза форумом
  • Дата реєстрації: 19.11.2012
  • Повідомлень: 3
    • Репутація: 1

Re: Двовимірний масив. Матриці.

вже сам зробив..))

const
  nmax=13;
var
  a: array[1..nmax,1..nmax] of real;
  n,i,j,k: integer;
  x: real;
  
begin
  randomize;
  write('Введите размер матрицы n: ');
  readln(n);
  write('Введите число k (k<=n) : ');
  readln(k);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:6:2);
    end;
    writeln;
  end;
  writeln;
  
  x:=a[k,k];
  for j:=1 to n do
    a[k,j]:=a[k,j]/x;
    
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:6:2);
    writeln;
  end;
  readln;
end.
Подякували: Torbins1