Какие утверждения ложны? 144 - целое число; 124.98 - вещественное число; "Адрес" - целочисленная константа; -12.3 - отрицательное целое число; "Сумма" - строковое значение.

ЛОЖНО:

"Адрес" - целочисленная константа;

и

-12.3 - отрицательное целое число;

Объяснение:

"Адрес" - не целочисленная константа, а строковое значение

-12.3 - не целое, а вещественное число;

Новый год для меня - самый любимый и долгожданный праздник. В преддверие Нового года мною овладевает странное чувство, что должно случиться что-то волшебное и радостное. Повсюду атмосфера праздника, и люди готовятся к его приходу - покупают пышные ели домой, различные фрукты и сладости на стол, и конечно, подарки для своих близких. Для детей, Новый год - это настоящая сказка.

Накануне Нового года мы начинаем готовиться к его празднованию. Украшаем нашу елку и комнаты яркими гирляндами и игрушками, мишурой и разноцветными шарами. Квартира преображается, становится праздничной и еще более уютной.

Каждый год к праздничному столу мама готовит много всего вкусного и необычного. К нам в гости приходят близкие друзья и родственники. Все веселятся, поют и танцуют, участвуют в забавных конкурсах. Ближе к полуночи, выходим на улицу, запускаем салюты и любуемся красивым фейерверком. Повсюду слышны поздравления, восторг и радость от прихода Нового Года. А на утро, я с нетерпением бегу к елке, чтобы узнать какой же подарок мне подарили.

Уверен, что в этом году празднование Нового Года будет еще увлекательнее, а наступающий год принесет лишь счастье и радость!

//прога на Pascal`е
var
a: array of longint;
n, i: longint;
//
procedure zam(var a, b: longint);
var pz: longint;beginpz:=a;a:=b;b:=pz;end; 
procedure selectsort (rm : longint; var sortmas: array of longint);vari, j, min: longint;begin      for i:=0 to rm-2 dobeginmin:=i;for j:=i to rm-1 doif sortmas[min]>sortmas[j] then min:=j;         if i<>min then zam (sortmas[i], sortmas[min]);end;
end;//
beginrandomize;

readln (n);
setLength (a, n);for i:=0 to n-1 doa[i]:=random (2*1000000000) - 1000000000;writeln (a);selectsort (n, a);writeln (a);
end.