Ну в килобайте 1024 байта, значит
1024+256=1280 байт
Program n1;
const n=15;
var a: array[1..n] of integer;
i: integer;
begin
randomize;
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<=3 then a[i]:=sqr(a[i])*a[i];
end;
writeln;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end.
sad = 0
minlol = 190
maxlol = 150
name = input()
while name != '!':
name = int(name)
if name >= 150 and name <= 190:
sad += 1
if name < minlol:
minlol = name
if name > maxlol:
maxlol = name
name = input()
print(sad)
print(minlol, maxlol)
1. trunc - округляет до предыдущего числа(trunc(29.9)= 29
round - округляет до близ лежащего числа
round(29.9)= 30
2.
/- просто делит
mod - деление с остатком
div - целочисленное деление.
Для удобства.
3. writeln(a);
4. отношение <>=
логические and, or, xor, not
5. Оператор присваивания := присваивает значение. А = служит приравниванию.
6. 1,2,4