<span>from random import randint
A = [randint (160, 181) for i in range(12)]
srznach = <span>0
</span>print(A)
for i in range (12):
srznach= srznach + A[i]
srznach = srznach/<span>12
</span>print(srznach)
for i in range (12):
if A[i] <srznach:
</span> <span> A[i] = A[i]/<span>2
</span></span><span> else:
</span> <span><span> </span>A[i] = A[i]*<span>2
</span>print(A)</span>
Var n,i,max:integer;
a:array [1..1000] of integer;//объявляем массив
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]>max then
max:=i;
end;
writeln('Индекс максимального элемента массива =', max);
end.
Можно уменьшить отступы(сверху, снизу), межстрочный интервал, убрать лишние переходы на новую строку, сменить шрифт на более компактный, изменить размер шрифта
Var a, b, c:real;
begin
writeln('Введите значение гипотенузы и катета:');
read(c, a);
b := sqrt(c*c - a*a);
write(b);
end;
По RFC 791 IPv4 может быть здесь только таким 204.182.162.61