Заполнить файл f целыми числами, полученными с генератора случайных чисел. из файла f получить файл g, исключив повторные вхождения чисел. порядок следования чисел сохранить. решение на паскале, написать программу

Uses   system.collections.generic; var   a: array of string;   b: list< integer> : = new list< integer> ();   f, g: string; begin   readln(f, g);   system.io.file.writealltext(f, '');   system.io.file.writealltext(g, '');   for k: byte : = 1 to 10 do     system.io.file.appendalltext(f, inttostr(random(25)) + system.environment.newline);   a : = system.io.file.readalllines(f);   foreach k: string in a do     b.add(strtoint(k));   var i: integer;   while (i < b.count - 1) do   begin     while (b.indexof(b[i]) < > b.lastindexof(b[i])) do       b.removeat(b.lastindexof(b[i]));     inc(i);   end;   foreach k: integer in b do     system.io.file.appendalltext(g, inttostr(k) + system.environment.newline); end.

Массив это можно сказать тоже самое что и переменная , но массив отличается от переменной тем , что если переменная хранит одно значение , то в свою очередь массив хранит несколько значений. нужно из массива а вытащить значения, сравнить их if (первое значение) > (второго значегия) то выводишь первое значение , иначе выводишь второе значение , блин я в бэйсике 0, на pho пример : < ? php $array = array( "a" => "8", "b" => "4" ); if($array["a"] > $array["b"]){ echo array["a"]; else{echo array["b"]; } ? >

С  матрицы - значит, методом крамера. delta  =  a11*a22 - a12*a21; deltax  =  b1*a22 - b2*a12; deltay  =  a11*b2 - a21*b1; if ((delta  =  0) and (deltax  =  0) and (deltay = 0)) then write "решений  бесконечно  много"; if ((delta = 0) and ((deltax < > 0) or (deltay < > 0)) then write "решений  нет"; if  (delta < > 0) then begin x  =  deltax / delta; y  =  deltay  / delta; end;