В PascalABC.NET эта задача решается легко и быстро. В других версиях будет монстрик.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
procedure MakeFile(path:string); // не относится к заданию, создает файл Text со 100 числами begin WriteLines(path,SeqRandom(100,-99,99).Select(x->x.ToString)) end;
begin MakeFile('MyFile1.txt'); // теперь у нас есть текстовый файл из 100 случайных чисел // собственно, решение var n:=ReadInteger('Укажите количество чисел:'); var a:=ReadLines('MyFile1.txt').Take(n).ToArray; Writeln('Исходная последовательность'); a.Println; Writeln('Результирующая последовательность'); a:=a.OrderBy(x->x.Last).ToArray; a.Println; WriteAllLines('MyFile2.txt',a); end.
2. А вот так все еще учат в большинстве школ (стиль образца 70-80х годов века)
const n=16; var i,s:integer; a:array[1..n] of integer; begin Randomize; s:=0; for i:=1 to n do begin a[i]:=Random(101)-20; Write(a[i],' '); if i mod 2=0 then s:=s+a[i] end; Writeln; Writeln('S=',s) end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Напечатать таблицу значений функций y=x3 при изменении x от 2 до 12 с шагом напишите программу в Pascal
===== PascalABC.NET =====
begin
foreach var x in Range(2, 12, 2) do
Writeln(x:2, x * x * x:6)
end.