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

[vany]

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

[Streletz]

Самостоятельные попытки были? Где Ваши наработки?

[vany]

Я просто сам даже не могу,хотел чтобы кто-нибудь пояснил

[Stilet]

Приведу пример:

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var f:file of integer; i,j,k:integer; arr:array[1..50] of integer;
begin
  assignfile(f,'q'); rewrite(f); for i:=1 to 50 do write(f,random(100)); closefile(f);
  reset(f);
  BlockRead(f,arr,length(arr));
  closefile(f);
  for i:=1 to 50 do  for j:=1 to 50 do if arr[i]<arr[j] then begin
    k:=arr[i]; arr[i]:=arr[j]; arr[j]:=k;
  end;
  assignfile(f,'w'); rewrite(f); BlockWrite(f,arr,Length(arr));closefile(f);
end.

Пройдись по учебнику и почитай что делают описанные в нем функции.

[vany]

спасибо большое))это верный вариант решения?

[Stilet]

Не знаю. Я с потолка писал.
Вот ты почитай литературу по паскалю и представленным в примере функциям и получишь ответ на свой вопрос.

[vany]

да,спасибо