Подпишите, где представлена запись полного ветвления, а где – неполного. [1] Рассмотри пример программы. Подпиши, что значат служебные слова if, elif, else? [3]

# Положительные и отрицательные числа

print ('Введите число')

x = int (input())

if x > 0 :

print ('Это число положительное')

elif x = 0 :

print ('Это число ноль')

else:

print('Это число отрицательное')

     Во-первых, там должно стоять D латинское.
7.46D1 = 7.46 × 10¹ = 74.6

     Буква D исторически "пришла" из языка Fortran.
Числа в формате с плавающей точкой могли занимать 4 или 8 байт и назывались соответственно числами с одинарной и двойной (Double Precision) точностью. При записи констант в программе, а также при вводе и выводе нужно было как-то различать, какой точности число, поэтому договорились писать вместо цифры 10, за которой следовал показатель степени, букву E (Exponent) для одинарной точности и букву D для двойной.

     Когда был создан "младший брат" Фортрана - язык Basic - велосипед изобретать на стали и вместе с синтаксисом для записи формул, в Бейсик перекочевали и буквы E, D для записи чисел с плавающей точкой.

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

1. Современное решение

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var c:=ReadArrInteger('Введите элементы массива: ',10);
  c.Transform(x->x>0?x*x:x=0?x:20); c.Println
end.

Пример
Введите элементы массива:  5 11 -7 0 3 -12 -8 1 9 -2
25 121 20 0 9 20 20 1 81 20

2. Традиционное "школьное" решение

const
  n=10;
var
  i:integer;
  c:array[1..n] of integer;
begin
  Write('Введите элементы массива: ');
  for i:=1 to n do Read(c[i]);
  for i:=1 to n do
    if c[i]>0 then c[i]:=sqr(c[i])
    else
      if c[i]<0 then c[i]:=20;
  for i:=1 to n do Write(c[i],' ');
  Writeln
end.

3. Улучшенное "школьное" решение

const
  n=10;
var
  i,t:integer;
  c:array[1..n] of integer;
begin
  Write('Введите элементы массива: ');
  for i:=1 to n do begin
    Read(t);
    if t>0 then c[i]:=t*t
    else
      if t<0 then c[i]:=20
    end;
  for i:=1 to n do Write(c[i],' ');
  Writeln
end.