Там где цифры,это и есть кегль
Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.
Const n=25;
var a:array[1..n] of integer;
i,j,p:integer;
begin
for i:=1 to n do a[i]:=random(50)-20;
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to 12 do
if (a[i] mod 2 = 0) then a[i]:=2*a[i];
for i:=14 to n-1 do begin
for j:=14 to n-1 do
if a[j]<=a[j+1] then begin
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p;
end;
end;
for i:=1 to n do write(a[i]:4);
<span>end.</span>
ЭТО ДЛЯ PYTHON
Объяснение:
import random
d=int(input())
y=int(input())
z=int(input())
a=[random.randint(d,y) for i in range (z)]
print(a)
max=a[0]
for x in range (0, len(a)):
if a[x]>max:
max=a[x]
print(a[x])
d-от какого числа
y-до какого числа
z-сколько чисел в массиве
ЭТО ДЛЯ PYTHON
Зайти на сайт хостингер . или же через denver . Смотря для каких целей