Дано описание массива: var a:array [1..8] of integer;

Здесь oписан массив a из

ответ

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

ответ
ячеек целого типа.

Const
  n = 15;

var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
  HasNull: Boolean;

begin
  Randomize;
  writeln('Исходная матрица');
  HasNull := False;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      if a[i, j] = 0 then HasNull := True;
      write(a[i, j]:5);
    end;
    writeln
  end;
  if HasNull then writeln('Матрица имеет нулевые элементы')
  else writeln('Матрица не имеет нулевых элементов')
end.

Тестовое решение:

Исходная матрица
   16   23  -50   14  -44   15  -28    8   40  -43   -4   31  -11  -24  -15
   31  -37  -42    2   15   23   -8  -19   14  -35   -5  -30   41   11  -18
  -44   -3   30  -34   40   39   -7   -8   -6  -16   29  -11  -43   39   28
    5   37   42   46   13  -27  -39    2  -19  -45  -27   -8  -14   -2   11
   -6  -20   47    8  -49   48  -50  -28  -15   -4  -13   20   14  -32   35
  -17  -16   -8   35   10    7  -22   45   47  -41   45   45   -2  -39   17
   -3  -43   43   32   39   -2   -9   -1   37   29    4   15    7    0  -24
    2   -4  -17   -5   21   38   49    0   37  -47  -34  -15  -50   -2  -45
  -47    2  -40   18   48  -20   27   31  -21  -13   42   35    4  -45  -44
   42   20   -6   21    6   -2   11  -48  -10   28   -3    6  -45   29   22
  -38   -9  -50   32   26  -49    4   38    1   46   24   15  -46  -42   29
  -47   -5   -6   31  -39   -5   40  -21   41    7   -9   -1   20   39    1
   23   21  -48    6  -26    0   35   22  -21  -46  -12   32   42   24   32
   32    7   44   11   25  -49  -38  -26   17  -24  -28  -38  -42  -25  -16
    2   33   48  -50  -27  -47   13   -2   34  -22  -32   23  -35   26   22
Матрица имеет нулевые элементы

Program e1;

const
  s1 = 'аптека';
  s2 = 'ствол';
  s3 = 'чайник';

var
  s: string;

begin
  s := concat(Copy(s2, 3, 3), s3[1], s3[5], s3[3], ' ');
  s := Concat(s, Copy(s1, 1, 2), s1[2], s1[4], s1[3], s3[5], s1[3]);
  writeln(s)
end.

Тестовое решение:

волчий аппетит

program e2;

var
  i, n, k: integer;
  s: string;

begin
  writeln('Введите фразу, разделяя слова ровно одним пробелом');
  readln(s);
  n := length(s);
  k := 0;
  i := 1;
  while (k < 2) and (i <= n) do
  begin
    if s[i] = ' ' then k := k + 1;
    i := i + 1
  end;
  if k = 2 then writeln('Первая буква в третьем слове: ', s[i])
  else writeln('Ошибка!')
end.

Тестовое решение:

Введите фразу, разделяя слова ровно одним пробелом
Просто тестовая фраза из пяти слов
Первая буква в третьем слове: ф