Var
arr : array [1..30] of integer;
i, number : integer;
begin
//Заполнение массива случайными числами
for i := 1 to 30 do
arr[i] := Random(10000) - 5000;
//---
//Считывание номера элемента и проверка на соответствие условию
write('Введите число: ');
readln(number);
if not (number in [1..30]) then
begin
write('Ошибка. Номер элемента выходит за границу массива');
Exit;
end;
//---
//Вывод массива с учётом условия
for i := 1 to 30 do
if arr[i] > arr[number] then
write(arr[i], ' ');
//---
end.
1) Pascal:var a,b,u,S:integer;
<span>begin //ВВедите стороны параллелограмма "ab" и угол Альфа
</span><span>readln(a,b,u);
</span><span>S:=a*b*Sin(u);
</span><span>writeln("Площадь параллелограмма равна: ",S);
</span><span>readln;
</span><span>end.</span>
2)117 в двоичной = 1110101 (см. приложение)
N = int(input())
a = n - 1
g = n *a
h = g / 2
print(g)
ответ в языке python
На три вроде),...........................