[delphi] - 99 заданы матрица порядка n и число k. разделить элементы k-й строки на диагональный элемент, расположенный в этой строке.

Консольное приложение:
const n=4;
var a:array[1..n,1..n] of real;
k,i,j:integer;
begin
writeln('1:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=10*random;
  write(a[i,j]:4:1);
  end;
 writeln;
 end;
write('k = ');
readln(k);
writeln('2:');
for j:=1 to n do a[k,j]:=a[k,j]/a[k,k];
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4:1);
 writeln;
 end;
end.

Пример: 1:
 1.4 0.8 5.3 9.6
6.7 2.4 5.1 4.0
1.9 6.6 0.9 4.0
4.1 6.1 2.6 0.9
k = 2
2:
1.4 0.8 5.3 9.6
2.8 1.0 5.1 4.0
1.9 6.6 0.9 4.0
4.1 6.1 2.6 0.9

{$APPTYPE CONSOLE}
Var
   Mass:array[1..10000,1..10000] of real;
   n,k,i,j:integer;
Begin
Randomize;
Write('n = ');ReadLn(n);
For i:= 1 to n do
    Begin
    For j:= 1 to n do
        Begin
        Mass[i,j]:=random*21-10;
        Write(Mass[i,j]:5:2,' ')
        End;
    WriteLn
    End;
Write('k = ');ReadLn(k);
For j:= 1 to n do
    Mass[k,j]:=Mass[k,j]/Mass[k,k];
For i:= 1 to n do
    Begin
    For j:= 1 to n do
        Write(Mass[i,j]:5:2,' ');
    WriteLn
    End;
ReadLn
End.

Переносные, компактные и весьма емкие по памяти, по-сравнению с дискетами, мобильные носители информации, в народе называемые просто флешками, получили очень широкой распространение. В настоящее время флеш-носители используются в коммуникаторах, в фотоаппаратах, в некоторых моделях сотовых телефонах и просто как устройство, предназначенное для хранения и переноса информации. Вслед за широким применением флеш-устройств участились и случаи потери информации на них. Связано это либо с поломкой самого устройства, либо с нарушением файловой структуры, либо по вине самого пользователя.
Вне зависимости от типа (формата) устройства: CompactFlash, SD, MMC, MemoryStick, USB-Flash для их производства используются микросхемы памяти, построенные по NAND-технологии (форм-фактор TSOP, WSOP, BGA), что позволяет конструктивно работать непосредственно с самой микросхемой памяти через специальное устройства с дальнейшей расшифровкой полученных результатов. Таким образом, необходимое и достаточное условие для восстановления информации с флеш-носителей – сохранение целостности самой микросхемы памяти и её содержимого.

Первый компьютер и был, и не был. Не был потому, что его автор Чарльз Бэббиджне смог его построить: в то время (он начал свою работу в 1834 году) подобная машина могла быть только механической. Но точность изготовлении деталей была слишком высока по их меркам. Поэтому финансирование проекта прекратилась. Но все же первый компьютер был - не осуществленный, но продуманный до мелочей и тщательно вычерченный. Кроме чертежей, осталась еще и подробное словесное описание, составленной сотрудницей Бэббиджа Августой Адой Лавлейс, разработанная ею язык программирования и несколько первых в истории программ (перфокарты, машина Бэббиджа была выполнять программы). Его основные части были теми же, что и в каждом современном компьютере: устройства ввода данных (клавиатура); запоминающее устройство хранить исходные данные; арифметическое устройство (-,+,·,:); устройство для вывода результата.