Массивы

[Ондрюша]

Сформулируйте одномерный массив, который считывает данные из файла, написать функцию вычисления минимального и максимального элементов массива и обмена их местами

[p51x]

Сколько платите за выполнение вашей домашней работы?

[domovou]

i:=1;
while not eof(f) do       {пербираем файл до конца}
begin   {}
read(f,a);      {читаем элемент(цифру) из файла}
m[i]:=a;
inc(i);                     {и выводим её на экран}
end;     {}

это из файла в массив

const    m = 10;
var
    arr: array[1..m] of integer;
    i, j, k: integer;
begin
    randomize;
    write ('Исходный массив: ');
    for i := 1 to m do begin
        arr[i] := random(256);
        write (arr[i]:4);
    end;
    writeln; writeln;
    for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j] > arr[j+1] then begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k
            end;
    write ('Отсортированный массив: ');
    for i := 1 to m do
        write (arr[i]:4);
    writeln;
readln
end.

программа сортировки массива(1 элемент самый маленький, а последний самый большой).
Чуток сам подумай и сделаешь программу

[Poma][a]

Опять фриланс устроили, фи
ЭТА задача была на форуме овер9000 раз!
А вставлять сортировку, со сложностью O(n^2), где можно в легкую обойтись просто n - не есть гут.

[p51x]

ЭТА задача была на форуме овер9000 раз!

И? Мы за ТС должны еще и поискать?

[Poma][a]

Это замечание было ТС.

[Stilet]

Сформулируйте одномерный массив, который считывает данные из файла, написать функцию вычисления минимального и максимального элементов массива и обмена их местами

type TArr=array[1..1000] of integer;
var f:file of integer; arr:TArr;

function foo(var a:Tarr):boolean;
var c:integer;
begin
 read(f,a[a[1]]);
 if a[a[2]]>a[a[1]] then a[2]:=a[1];
 if a[a[3]]<a[a[1]] then a[3]:=a[1];
 if eof(f) then begin
   c:=a[a[2]];
   a[a[2]]:=a[a[3]];
   a[a[3]]:=c;
 end else inc(a[1]);
end;

var i:integer;
begin arr[1]:=4; arr[2]:=1; arr[3]:=1;
 assign(f,'file');reset(f);
 while not eof(f) do foo(arr); close(f);
 for i:=4 to a[1] do writeln(a[i]);
 readln;
end.

Подойдет? (Из мойх старых тетрадок выкопал).