Запишите программу, подсчитывающую количество отрицательных элементов и сумму положительных в массиве Р [1..12] заполненного случайными числами, лежащими в промежутке [-6,6]. Элементы массива и количество отрицательных элементов вывести на экран.

Интернет символ «@» появился несколько сотен лет назад в средневековых монастырях. Его использовали для обозначения латинского предлога «ad» (в современном английском — «at»), хотя некоторые исследователи утверждают, что «собаку» придумали итальянские монахи.

Как бы то ни было, это новшество вскоре переняли торговцы: одним из первых, кто использовал символ вне стен монастыря, был флорентийский купец Франческо Лапи, в одном из своих писем обозначивший «собакой» амфору — стандартную в те времена меру объёма, примерно равную 26-ти л.

Постепенно знак стал приобретать и другие значения, например, в португальском, испанском и французском языках до символа «@» обычно сокращают старинную испанскую меру веса под названием «arroba», равную 11,502 кг. Символ, похожий на «собаку», исследователи обнаружили в русских книгах XVI–XVII веков, в числе которых — Судебник Ивана Грозного, датируемый 1550-м годом, а к XIX-му веку знак уже получил широкое распространение в качестве обозначения единицы товара.

Рэй Томлинсон

В 1963-м году появилась кодировка стандарта ASCII, в числе 95-ти печатных знаков которой присутствовала и «собака», а в 1973-м году члены организации «Internet Engineering Taskforce» закрепили использование знака при разделении имени и домена — эту идею в 1971-м году выдвинул программист Рэй Томлинсон. Массовой «собака» стала в 1996-м году, когда появился сервис «Hotmail».

Кстати, «собакой» символ называют лишь русские и украинцы, в других языках этот знак известен под другими, порой достаточно необычными именами. Итальянцы говорят «chiocciola» («улитка»), в Греции его знают, как «παπακι» — «уточка», в Чехии и Словакии — «zavináč» («рулетик из сельди»), на Тайване используют понятие «小老鼠» (произносится как «сяо лао шу») — «мышка», в Израиле распространено название «שטרודל» — «штрудель», а в Казахстане знак именуют «айқұлақ» — «ухо Луны».

Var
  A: array [1 .. 5] of real;
  i, j: byte;
  sum, tmp: real;

begin
  sum := 0;

  { Заполнение массива }
  for i := 1 to 5 do
  begin
    write('A[', i, '] = ');
    readln(A[i]);
    sum := sum + A[i]; // подсчет суммы
  end;
  writeln(#13 + 'Сумма элементов = ', sum);

  { Сортировка по убыванию }
  for i := 1 to 4 do
    for j := i + 1 to 5 do
      if A[i] < A[j] then
      begin
        tmp := A[i];
        A[i] := A[j];
        A[j] := tmp;
      end;

  { Вывод }
  writeln('Отсортированный массив: ');
  for i := 1 to 5 do
    write(' ', A[i]);

end.