Вот такая задача:Необходимо отсортировать массив в порядке:
-возрастания, если среднее арифметическое элементов с четными значениями больше среднего арифметического элементов с нечетными значениями
-убывания, если среднее арифметическое элементов с четными значениями меньше среднего арифметического элементов с нечетными значениями
Чтение массива производится из текстового файла f1 и результат записывается тоже в текстовый файл(но f2), тоесть:
Var
a:array[1..15] of integer;
f1,f2:text;
i,n:integer;
Begin
Assign(f1,'1.txt');
Assign(f2,'2.txt');
reset(f1);
Read(f1,n);
For i:=1 to n do Read(f1,a);
close(f1);
...
(а тут код программы, который я пока не осилил...)
...
Rewrite(f2);
For i:=1 to n do Write(f2,a,' ');
Close(f2);
End.
Задача для меня сложная... Очень нуждаюсь в вашей помощи!!
я думаю повстанец сам разберётся к кому стучаться