Найти сумму элементов одномерного массива [3, 14] элементы вводятся с клавиатуры

{ Подсчет суммы элементов одномерного массива }

var a:array[1..10] of integer;

s:longint;

i:integer;

begin

writeln('введите 10 элементов массива');

s:=0;

for i:=1 to 10 do begin

readln( a[i] );

s:=s+a[i];

end;

writeln( 'Сумма элементов массива = ', s );

end.

1)К системному ПО относятся:

операционные системы (эта программа загружается в ОЗУ при включении компьютера)

программы – оболочки (обеспечивают более удобный и наглядный общения с компьютером, чем с командной строки DOS, например, Norton Commander)

операционные оболочки – интерфейсные системы, которые используются для создания графических интерфейсов, мультипрограммирования и. т.

Драйверы (программы, предназначенные для управления портами периферийных устройств, обычно загружаются в оперативную память при запуске компьютера)

утилиты (вс или служебные программы, которые представляют пользователю ряд дополнительных услуг)

2) OpenOffice - это программа для работы с офисными документами

3) в него входят такие приложение как: Writer-(текстовый редактор),

Calc - электронные таблицы,Draw – графический редактор,Base – поддержка работы с базами данных,Math- формульный редактор.

5)Calc - это модуль электронных таблиц, позволяющий обрабатывать и визуализировать табличные данные. В электронную таблицу можно вводить данные, обычно числовые, и затем манипулировать этими данными для получения определенных результатов.

6)строки - цифрами, столбцы - английскими буквами, затем удвоенными, утроенными и так далее.

7)Выделяем таблицу и переходим в меню Данные – Сводная таблица.

Теперь необходимо выбрать источник данных. Используем выделенную ранее таблицу (ставим отметку напротив пункта «Текущее выделение»

8)Установив OpenOffice.org и запустив текстовый редактор или программу для работы с электронными таблицами, вы увидите привычный интерфейс с теми же пунктами меню и панелями инструментов. В пунктах "Сервис", "Формат", "Правка"

Function t10_q(x,q:longint):string;
const
  s='0123456789ABCDEFGHI';
var
  t,m:longint;
  r:string;
begin
  t:=x; r:='';
  while t>=q do
  begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
  end;
  t10_q:=s[t+1]+r
end;

{ тестирование }
var
  q,n:longint;
begin
  Write('Введите основание системы счисления (2-20): '); Readln(q);
  Write('Введите натуральное число для перевода: '); Readln(n);
  Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)