Домашнее задание для 11 ИТП на 23.11
Пример задачи, которую рассматривали в классе:
{Задача: в файле input. txt записаны числа (в столбик), сколько их – неизвестно,
но не более 10. Переставить их в порядке возрастания и
записать в файл output. txt}
var A: array[1..10] of integer;
f: text; j, c,i:integer;
N: integer;
function ReadArray(var A: array[1..10] of integer): integer;
var i: integer;
begin
assign(f, 'input. txt');
reset(f);
i := 0;
while (not eof(f)) and (i < 10) do begin
i := i + 1;
readln(f, A[i]);
end; ReadArray:=i;close(f); end;
Begin
N := ReadArray(A);
for i:=1 to N-1 do
begin
for j:=N-1 downto i do
if A[j] > A[j+1] then begin
c:= A[j];
A[j]:= A[j+1];
A[j+1]:= c;
end;
end;
assign(f, 'output. txt');
rewrite(f);
for i:=1 to N do
writeln(f, A[i]);
close(f);
end.
Решить задачи:
В файле input. txt записаны числа (в столбик), известно, что их не более 100.
Отсортировать массив по убыванию и записать его в файл output. txt. Отсортировать массив по убыванию последней цифры и записать его в файл output. txt. Отсортировать массив по возрастанию суммы цифр и записать его в файл output. txt.