Написать программы на ABC Pascal 1) Целочисленный массив А[1..15]  задан случайным образом из промежутка от -20 до 20. Рассортируйте его элементы по неубыванию.
2) Целочисленный массив  В[1..20], задан случайным образом из промежутка от 10 до 50. Найти количество четных элементов до первого встреченного числа, равного введенному пользователем.
3) Вставить в массив элемент, после элемента с заданным номером (Пусть  к номер элемента, после которого надо вставить некий  элемент х. Тогда, первые к элементов массива оставить без изменения, все остальные с  (к+1) элемента необходимо сдвинуть на 1 влево. На место (к+1) элемента записать значение х. Число элементов массива увеличится на 1).

Вопрос 1:

Файл - это...

ответ (вариант 2):

поименованная область внешней памяти

Вопрос 2:

Файлы-документы содержат...

ответ (вариант 1, 3):

графические данные, и текстовые данные

Вопрос 3:

Файлы-приложения содержатся в...

ответ (вариант 2):

Прикладных программах

Вопрос 4:

Имя файла состоит из...

ответ (Вариант 2):

Двух частей.

(название и расширение)

Вопрос 5:

Выбрать расширения для текстовых файлов

ответ (Вариант 1,2,3):

.doc  .rtf  и .txt

(.bmp формат хранения изображений)

Вопрос 6:

Выбрать расширения для исполняемых файлов

ответ (вариант 2,3):

.exe   .com

(.com был развит в .exe, но указать его нужно!)

var a,b:integer;

c,d:real;

begin

a:=random(50); // Если нужно вводить своё число, то тогда "a:= *заданное число*" или, иначе, readln(a) "

writeln('Число "a" приняло значение ', a); // Если будет один из двух показанных выше, то эта строка не является обязательной.

b:=random(100); // Если нужно вводить своё число, то тогда "b:= *заданное число*" или, иначе, readln(b) "

writeln('Число "b" приняло значение ', b); // Если будет один из двух выше, то эта строка не является обязательной.

c:=((a+b)/2);

writeln('Среднее арифметическое данных двух чисел ', c);

d:=(sqrt(abs(a*b)));

writeln('Среднее геометрическое данных чисел ', d);

end.