Windows XP, Операционная система, Возможно клавиатурный тренажёр.
1. название программы
2. подключение библиотеки
3 и 4. объявление переменных и их типов
5. объявление массива
6. начало программы
7. вывод на экран сообщения о необходимом действии
8. считывание введенных с клавиатуры данных
9. конец ввода массива
10. обнуление переменной
11. начало цикла
12. формула подсчета переменной
13. вывод получившегося числа на экран
14. задержка экрана (чтобы увидеть результат)
15. конец программы
1. 163840
2. 131072
3. 10000
Program n_1;
var a:array[1..1000] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(64000)-32000;
writeln (a[i],' ');
end;
end.