Составьте программу , которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и: подсчитывает количество отрицательных элементов;

PascalABC позволяет нам писать меньше, понятнее и красивее.

Старее этого только динозавры.

1 часть решается 1 таблицей: решается таблицей. Вот сама таблица, вода и молоко не в бутылке, лимонад и вода не в банке, так как, сосуд с лимонадом находится между кувшином и сосудом с квасом, то получается, что лимонад и квас не в кувшине , так как стакан находится около банки и сосуда с молоком, то получается, что молоко находится не в банке и не в стакане. Получилось, раз молоко, не в банке не в стакане и не в бутылке, то он в кувшине. А значит остальные не могут быть в кувшине, раз там уже молоко. Теперь получается что вода не в кувшине, не в банкек и не в бутылке, получается она в стакане, а это значит что больше ничего в стакане быть не может, раз там уже вода. Теперь мы видим, что лимонад, не в банке, не в кувшине и не в стакане, значит он в бутылке. А это значит что оставшийся квас уже не в бутылке, так как он больше нигде не может быть он в банке.

 Получается так в 1 действии: кувшин с молоком, бутылка с лимонадом, банка с квасом и стакан с водой.

                 Бутылка   Стакан   Кувшин    Банка

Молоко     \   -         \      -      \   +         \    -       \

Лимонад  \       +      \      -        \   -          \    -      \

Квас        \    -          \           -   \    -        \   +          \

Вода        \ -            \       +        \    -       \     -        \

ответ: молоко в кувшине, лимонад в бутылке, квас в банке, вода в стакане.

КОНЕЦ.

var a:array[1..250] of string; size:real; i,n:integer; text:string;

begin

   writeln('daite N'); readln(n);

   for i:=1 to n do

     begin

        readln(size);

        if (size>1024) or (size=1024) then

            begin

               size:=size/1024;

               str(size:0:2,text);

               a[i]:=text+' kb';

               text:=''; size:=0;

            end else

         begin

              str(size,text); a[i]:=text+' bytes'; text:=''; size:=0;

         end;

      end;

  for i:=1 to n do write(a[i],' '); readln;

end.