Нужна помощь с информатикой!В файле записано не более 100 целых чисел вывести в ...

August 2022 1 15 Report

Нужна помощь с информатикой!В файле записано не более 100 целых чисел вывести в другой текстовый файл те же числа отсортированные в порядке возрастания

Answers & Comments

nemolkl Var
{Файл 1.txt необходимо создать }
n,i,j,c1:integer;
a:array[1..100] of integer;
f:text;
begin
{чтение данных с файла 1.txt}
assign(f,'1.txt'); reset(f);
i:=0;
while not eof(f) do
begin
   i:=i+1;
   read(f,a[i]);
end;
n:=i;
close(f);
{Сортировка}
for i:=1 to n-1 do
for j:=i+1 to n do
    if a[i]>a[j] then
        begin
         c1:=a[j];
         a[j]:=a[i];
         a[i]:=c1;
        end;
{вывод в файл 2.txt отсортированного массива}
assign(f,'2.txt'); rewrite(f);
for i:=1 to n do
   write(f,a[i]:5);
close(f);

end.

14 votes Thanks 14

Kapakopum файл C:/Users/777/Destkop/1.txt не найден, это его создать надо? Если да, то где?)

Kapakopum а всё понял, извините, если потревожил

Answers & Comments

pozhalujsta pomogite komu netrudno stavlyu mnogo ballov napishite programmu

pomogite pozhalujsta budu ochen blagodaren zadaniya na foto

pomogite pozhalujsta vsego 3 netrudnyh primera ochen nuzhny resheniya zadaniya na

pomogite pozhalujsta zadaniya na foto ogromnoe spasibo kto ne ostanetsya ravnodu

pomogite pozhalujsta 2 netrudnyh neravenstva na fotografii budu ochen blagodar

pomogite pozhalujsta zadaniya na fotoneravenstva nuzhno reshit metodom vvedeniya n

pomogite pozhalujsta s neravenstvami budu blagodaren

umolyayu pomogite s zadachej po informatike zapolnit massiv sluchajnymi chislami

damy i gospoda pomogite pozhalujsta s informatikoj dlya uzla s ip adresom 22713

pomogite pozhalujsta s neravenstvom log22x 1lt3

рекомендуемые вопросы

Helpful Links

Helpful Social