Заполнить массив из 10-ти элементов случайными числами из интервала от [-40; 40], вывести его на экран. располочить числа в порядке убывания значений.

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const
  N = 10;

var
  a: array [1..N] of integer;
  i, j, b: integer;

begin
  for i := 1 to N do
    a[i] := Random(81) - 40;
  writeln('Элементы массива a: ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;
 
  //сортировка не очень быстрая, но и массив маленький
  for j := 1 to n do
    for i := 1 to n - 1 do
      if a[i] < a[i + 1] then
      begin
        b := a[i];
        a[i] := a[i + 1];
        a[i + 1] := b;
      end;
  writeln;
  writeln('После сортировки : ');
  for i := 1 to N do
    write(a[i], ' ');
  writeln;  
end.

объяснение:

робочою книгою; b. робочим аркушем; c. документом

14. принциповою відмінністю електронної таблиці від звичайної є:

a. можливість автоматичного перерахунку за формулами даних при зміні вихідних;

b. можливість обробки даних, структурованих у вигляді таблиці;

c. можливість наочного представлення зв'язків між опрацьовуваними даними;

d. можливість обробки даних, представлених у рядках різного типу.

15. вираз 3(а1+в1): 5(2в1-3а2), записаний у відповідності до правил, прийнятих в

і, в електронній таблиці має вигляд:

а) 3*(а1+в1)/(5*(2*в1-3*а2)); б) 3*(а1+в1)/5(2в1-3а2);

в) 3(а1+в1): 5*(2в1-3а2); г) 3(а1+в1)/(5(2в1-

ответ:

25

Объяснение:

Присваиваем переменной i значение 20, а f - значение 1:

i:=20; f:=1;

Объявляем цикл, который, пока выполняется условие (i>15), будет выполнять команды, содержащиеся в { }:

while (i > 15) { i:=i - 2; f := f + i div 2; }

Изначально i равна 20. Потом идёт цикл: i > 15 ? да, тогда:

присваиваем i новое значение: i старое - 2. То есть теперь i равна 20; присваиваем f новое значение: f старое + целая часть от деления i на 2. То есть теперь переменная f равна 1 + 18/2 = 10.

Возвращаемся к условию цикла. i > 15 ? да, тогда:

присваиваем i новое значение: i старое - 2. То есть теперь i равна 16; присваиваем f новое значение: f старое + целая часть от деления i на 2. То есть теперь переменная f равна 10 + 16/2 = 18.

Возвращаемся к условию цикла. i > 15 ? да, тогда:

присваиваем i новое значение: i старое - 2. То есть теперь i равна 14; присваиваем f новое значение: f старое + целая часть от деления i на 2. То есть теперь переменная f равна 18 + 14/2 = 25.

Возвращаемся к условию цикла. i > 15 ? нет, цикл завершается, конец программы. f равна 25.