1. Дано описание массива:
constb:array[1..2]ofinteger=(2,11,8 ,64,101);

Верно ли описан массив?
 неверно
 верно
2. Определи заполнения массива.
fori:=1to13doread(a[i]);
 с оператора присваивания (случайными числами)
 ввод каждого значения с клавиатуры
 с оператора присваивания (по формуле)

3. Определи вывода массива.

 элементы массива выводятся в строку
 вывод массива с комментариями

4. Выбери верный ответ.
Под _ (упорядочением) массива
понимают перераспределение значений его элементов в
некотором определенном порядке обыкновенный
 сортировка

6. Запиши программу на языке программирования
Паскаль.

Дано 5 целых чисел. Напиши программу нахождения
наибольшего среди них.

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

сред. арифметическое = сумма всех чисел разделить на количество

(a1 + a2 + a3 + a4 + a5) / 5

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.